VBA/Excel/Access/Word/Data Type/Val

Use Val to convert user input to number value

   <source lang="vb">

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

</source>
   
  

Val() converts numerical to string data

   <source lang="vb">

Sub valDemo()

   num1 = 5
   strV = "5"
   num2 = num1 + Val(strV)

End Sub

</source>
   
  

Val() returns a numerical representation of a string

   <source lang="vb">

Sub valDemo()

  MsgBox Val("4") + 9

End Sub

</source>