Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Using the Resume LineLabel Statement to Specify Where Execution Continues After an Error Occurs

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