Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Check the error number

Sub errorTest1()     Dim intNumerator As Integer     Dim intDenominator As Integer     Dim intResult As Double     On Error GoTo mytrap     intNumerator = InputBox("Please enter a numerator", "Numerator") enterDenominator:     intDenominator = InputBox("Please enter a denominator", "Denominator")     intResult = intNumerator / intDenominator     msgBox "The result is " & intResult     Exit Sub mytrap:     If Err.number = 11 Then        msgBox ("The description of the error is " & Err.Description)     Else        msgBox ("Something else is going wrong")     End If     Resume enterDenominator End Sub