Get the Error source : Error « Language Basics « VBA / Excel / Access / Word

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

Get the Error source

 
Sub errorTest2()
    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 (Err.Source)
    Else
       msgBox ("Something else is going wrong")
    End If
    Resume enterDenominator

End Sub

 

Related examples in the same category