Public Class MyClass
 ' erbt Irgendwas
 
Public Function TestArr(ByVal Arr1() As String, ByVal Arr2() As String) As _
  Integer
 
    If Arr1.Length <> Arr2.Length Then
        Throw New ArgumentException("Die Anzahl der beiden Arrays ist nicht" & _
          "ident")
        ' Return -1
    End If
 
    ' Bei Fehler bleibt das Programm leider hier stehen:
    If Arr1.Length = Arr2.Length Then
        If MsgBox("Jetzt Starten?", MsgBoxStyle.YesNo, "Start") = _
          MsgBoxResult.Yes Then
            ' Tu irgendwas .....
            Return Arr1.Length + Arr2.Length - 2    ' Besonders sinnvoll ;)
        End If
    End If
 
End Function
 
End Class
 
'
' und dann irgendwo in einer Form dieser Aufruf:
'
 
    ' .....
 
    ' Der folgende Aufruf muss einen Fehler zurückbringen, da die Länge der 
    ' beiden Arrays nicht gleich ist. Das Programm soll genau auf dieser 
    ' Anweisung stehen bleiben.
 
    Dim I As Integer = TestArr(New String() {"A", "B"}, New String() {"1", "2", _
      "3"})
 
    ' .....