[RESOLVED] Select case Need help

[Adebiyi24]

Hello

Private Sub Text1_Change()
Case 40
Text2.Text = 1
Case 41
Text.Text = 2
Text 42
Text2.Text = 3
.
.
.
Case 60
Text2.Text = 20
End Select

I want like this:

Private Sub Text1_Change()
Select Case Text1.Text
Case 40 To 60
Dim i
For i = 1 To 20
Text2.Text = 1 + i
Next i
End Select
End Sub

but this not working
Any help please

[Argus19]

You want to get numbers from 10 to 20 in Text2 ?

[Eduardo-]

Explain what final result you are after (instead of what would you do).

[Adebiyi24]

You want to get numbers from 10 to 20 in Text2 ?

yes sir

I mean each time a number go up (increment) in textbox 1 ( 40 , 41, 42 ......60) same thing happens in textbox 2 ( 1, 2, 3, ......20)
when I put 45 in textbox 1 , textbox 2 display 5

[Argus19]

Private Sub Text1_Change()
Text2.Text = ""
Select Case Text1.Text
Case 40 To 60
Text2.Text = Val(Text1.Text) - 40
End Select
End Sub

[Adebiyi24]

Thank you very much

[Argus19]

This will be more correct:

Private Sub Text1_Change()
Text2.Text = ""
Select Case Val(Text1.Text)
Case 40 To 60
Text2.Text = Val(Text1.Text) - 40
End Select
End Sub

[Adebiyi24]

Thank you