' Beispiel 1
    Try
 
    Catch ex As ArgumentException
 
    Catch ex As ArithmeticException
 
    Catch ex As Exception
 
    Finally
 
    End Try
 
' Beispiel 2
    Try
 
    Catch ex As Exception
       Select Case Err.Number
           Case 1001
 
           Case 1002
 
        End Select
    Finally
 
    End Try
 
 
' Beispiel 3
 
    Dim X As Integer
    Dim Y as Integer
 
    Try
 
        X = 5
        Y = 0
 
        X = X / Y
 
    Catch ex As Exception When Y = 0    ' Fehlerbehandlung nur wenn durch 0 
    ' geteilt wird
 
    Finally
 
    End Try
 
 
' Beispiel 4
' ganz banal wie früher
 
   On Error goto Fehler_Behandlung
 
   Ende:
      Exit Sub
 
   Fehler_Behandlung:
      Select Case Err.Number
          Case 1
          Case 2
          .......
      End Select
 
      Goto Ende