formdaki bir butonun tıklanma olayına;
formdaki txtsay metin kutusunun içeriğine göre;
0 ile 17 arasındaysa 1
17 ye eşit ve 24 den küçükse 2
24 eşit ve 34 den büyükse 3 değerini
formdaki txtsonuç metin kutusuna
nasıl kodlarım

Private Sub Komut69_Click()
Select Case Me.txtogrsay
Case Me.txtogrsay > 0 Or Me.txtogrsay < 17
Me.txtgrpsay = 1
Case Me.txtogrsay > 16 Or Me.txtogrsay < 24
Me.txtgrpsay = 2
Case Me.txtogrsay > 23 Or Me.txtogrsay < 31
Me.txtgrpsay = 3
End Select
End Sub
Select Case Me.txtogrsay
Case Is < 17
Me.txtgrpsay = 1
Case Is < 24
Me.txtgrpsay = 2
Case Is < 31
Me.txtgrpsay = 3
End Select