Private Sub tsbExportToWord_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles tsbExportToWord.Click
 
        '//Exportiert die aktuelle Berechnung nach Word
        MyApplicationObjekt.ExportToWord()
 
End Sub

Public Sub ExportToWord()
 
        '//Übergibt an Microsoft Word
 
        Try
            '//Word-Objekt Variable definieren
            Dim wApp As New Word.Document
            Dim myTMP As String = ""
            Dim I As Short = 0
 
            ....
            ....
        Catch ex As Exception
            MsgBox("Fehler beim erstellen eines Word-Dokuments")
        End Try

Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As _
  Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) _
  Handles Me.UnhandledException
    MsgBox("Unerwarteter Fehler")
End Sub