Eğer komutuyla 0 ile 40 arasında textbox1 e yazma acill

[husnusezer]

kolay gelsin bir sorum olacak ama ;

Benim user formda 2 adet textbox var. isimleri textbox1 ve 2 . Textbox1 deki değer 0 ile 40 arasında ise textbox2 ye hsss yazdırmak istiyorum .

Nasıl yapabilirim yardımcı olursanız sevinirim.

 

[husnusezer]

kimse cvp vermicek mi ?

 

[hımmmmmmmm]

Private Sub TextBox1_Change()
TextBox2 = ""
If TextBox1 >= 0 And TextBox1 <= 40 Then
TextBox2 = "hsss"
End If
End Sub