Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
On Error GoTo LoadError
LoadPayrollFile()
On Error GoTo PrintError
PrintPaychecks()
Exit Sub
LoadError:
Console.WriteLine("Error loading the file.")
Exit Sub
PrintError:
Console.WriteLine("Error printing.")
Exit Sub
End Sub
Shared Private Sub LoadPayrollFile()
Throw New ArgumentException("Error in subroutine LoadFile")
End Sub
Shared Private Sub PrintPaychecks()
Throw New ArgumentException("Error in subroutine Print")
End Sub
End Class