IF with ElseIF

[jose001]

Hi Guys,

Does anyone have any idea what I'm doing wrong here please, have re-written this code every way I can imagine. What am I missing?

Private Sub CommandButton1_Click()
Dim x As Integer
x = TextBox1.Value

If x <= 99 Then TextBox2.Value = 125
ElseIf x <= 499 And x >= 100 Then TextBox2.Value = 600
ElseIf x <= 999 And x >= 500 Then TextBox2.Value = 1250
ElseIf x <= 4999 And x >= 1000 Then TextBox2.Value = 2500
ElseIf x <= 9999 And x >= 5000 Then TextBox2.Value = 3500
ElseIf x <= 24999 And x >= 10000 Then TextBox2.Value = 4000
ElseIf x >= 10001 Then TextBox2.Value = 5000
End If

End Sub

 

[villy]

Try:

Private Sub CommandButton1_Click()
Dim x As Integer
x = Val(TextBox1)
If x <= 99 Then
TextBox2.Value = 125
ElseIf x <= 499 And x >= 100 Then
TextBox2.Value = 600
ElseIf x <= 999 And x >= 500 Then
TextBox2.Value = 1250
ElseIf x <= 4999 And x >= 1000 Then
TextBox2.Value = 2500
ElseIf x <= 9999 And x >= 5000 Then
TextBox2.Value = 3500
ElseIf x <= 24999 And x >= 10000 Then
TextBox2.Value = 4000
ElseIf x >= 10001 Then
TextBox2.Value = 5000
End If
End Sub

I just modified something here..