in vb isses ganz praktisch für Errorhandling...

man muss es halt sinnvoll einsetzen


Code:
Private Function Ficken() As Boolean
  Dim i As Long
  Dim X As Variant

  On Error GoTo ErrorMark

  X = "Hallo Welt"
  i = X ' fehler...
  Ficken = True ' ihr werdet wohl nie Ficken^^

  GoTo Leave: 'oder Exit Funciton/Sub
ErrorMark:
  MsgBox Err.Description & vbNewLine & Err.Number 'o.Ä
  Debug.Assert False ' man kann auch Strg+Pause klicken wärend man in der Ide die msgbox angezeigt bekommt, dann einmal F8 und dann springt man zu Resume..
  Resume ' nur benutzen um die fehler auszubessern, man spring an die stelle wo der fehler auftritt, wenn man das programm so weitergibt und ein fehler auftaucht gibts ne 100%ige CPU auslastung... da es eine endlos schleife ist...
Leave:
' Man kann hier halt noch iwas machen, egal ob nen fehler aufgetaucht ist oder nicht, man springt hier immer rein..
End Function