Check the error number : Error « Language Basics « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Language Basics
3. Error

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

 

Related examples in the same category