InputBox function

[Yogesh Sharma]

Private Sub Command4_Click()
Dim i
i = InputBox("Enter a number", "Enter")
If i > 10 Then
MsgBox "Number is less than" + i
End If
End Sub

Hey I want that if the user enters number from 1 to 10 in the textbox(InputBox) msgbox comes on clicking the ok Button that" number is b/w 1 to 10," & else part if the user enters greater than 10, then msgbox shows "Number is greater than 10"

Plz help me out,I m new to the Vb.

[ubentook]

Maybe this...
'--
Private Sub Command4_Click()
Dim i as Variant
OnTop:
i = InputBox("Enter a number between 1 and 10 ", "Enter")
If Len(i) = 0 Then
Exit Sub
ElseIf i > 10 Then
If MsgBox("Number is greater than 10 ", vbExclamation + vbRetryCancel, "Oops") = vbRetry Then GoTo OnTop
ElseIf i < 1 Then
If MsgBox("Number is less than 1", vbExclamation + vbRetryCancel, "Oops") = vbRetry Then GoTo OnTop
End If
End Sub

Private Sub Command4_Click()
Dim i
i = InputBox("Enter a number", "Enter")
If i > 10 Then
MsgBox "Number is less than" + i
End If
End Sub

Hey I want that if the user enters number from 1 to 10 in the textbox(InputBox) msgbox comes on clicking the ok Button that" number is b/w 1 to 10," & else part if the user enters greater than 10, then msgbox shows "Number is greater than 10"

Plz help me out,I m new to the Vb.

[QVeen72]

Hi,

Try this :

Private Sub Command4_Click()
Dim i
i = Val(InputBox("Enter a number", "Enter"))
If i>=1 And i <=10 Then
    MsgBox "Number " & i & " is b/w 1 to 10"
ElseIf i > 10 Then
    MsgBox "Number " & i & "  is More than 10 " 
Else
    MsgBox "Not Applicable"
End If
End Sub
 

Regards
Veena

[Yogesh Sharma]

Thx Both of U,i have got it. hey can u pls send me the books of vb,if you have ???