Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

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