Snasui Excel Forum

Code: Select all

'Other Code....
Dim x, y As Double
x = Replace(TextBox1.Text, "%", "")
y = Replace(TextBox2.Text, "%", "")
Sum = x + y
'Other Code....

Code: Select all

Dim x As Double, y As Double
x = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
y = Left(TextBox2.Text, Len(TextBox2.Text) - 1)
Sum = x + y
'...Other code

Code: Select all

Private Sub CommandButton1_Click()
Dim x, y As Double
x = TextBox1.Text & "%"
y = TextBox2.Text & "%"
Sum = x + y
If Sum < 3 Then
        Label2.Caption = 50 & "-" & 60
        Label3.Caption = 50 & "-" & 60
        Label4.Caption = 50 & "-" & 60
ElseIf Sum > 2.9 Then
        Label2.Caption = 30 & "-" & 40
        Label3.Caption = 30 & "-" & 40
        Label4.Caption = 30 & "-" & 40
End If
If Sum > 4.9 Then
        Label2.Caption = 20 & "-" & 30
        Label3.Caption = 20 & "-" & 30
        Label4.Caption = 20 & "-" & 30
End If
If Sum > 6.9 Then
         Label2.Caption = 10 & "-" & 20
        Label3.Caption = 10 & "-" & 20
        Label4.Caption = 10 & "-" & 20
ElseIf Sum > 8.9 Then
         Label2.Caption = 5 & "-" & 10
        Label3.Caption = 5 & "-" & 10
        Label4.Caption = 5 & "-" & 10
End If
If Sum > 15 Then
       Label2.Caption = 1 & "-" & 5
        Label3.Caption = 1 & "-" & 5
        Label4.Caption = 1 & "-" & 5
End If
End Sub