Sub TestResumeLineLabel()
On Error GoTo TestResumeLineLabel_Err
Dim sngResult As Single
sngResult = 1 / 0
TestResumeLineLabel_Exit:
Exit Sub
TestResumeLineLabel_Err:
msgBox "Error #" & Err.number & ": " & Err.Description
Resume TestResumeLineLabel_Exit
End Sub