VBA/Excel/Access/Word/Data Type/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

Val() converts numerical to string data

 
Sub valDemo()
    num1 = 5
    strV = "5"
    num2 = num1 + Val(strV)
End Sub

Val() returns a numerical representation of a string

 
Sub valDemo()
   MsgBox Val("4") + 9
End Sub