Use Val to convert user input to number value : Val « Data Type « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Data Type
3. Val

Use Val to convert user input to number value

 

Sub exaIfThen()
    Dim intGrade As Integer
    intGrade = Val(InputBox("Enter student's average test score: "))
    If intGrade >= 90 Then
        MsgBox "You get an A"
    ElseIf intGrade >= 80 Then
        MsgBox "You get a B"
    ElseIf intGrade >= 70 Then
        MsgBox "You get a C"
    ElseIf intGrade >= 60 Then
        MsgBox "You get a D"
    Else
        MsgBox "Too bad"
    End If
    
End Sub

 

Related examples in the same category