Public Sub InsertTextAtBookmark(ByVal NameOfBookmark As String, ByVal iText As _
  String)
        Try
            If iText = " " Then
                Exit Sub
            End If
            m_Word.Selection.GoTo(What:=Word.WdGoToItem.wdGoToBookmark, _
              Name:=NameOfBookmark)
            m_Word.Selection.TypeText(Text:=iText)
        Catch ex As System.Runtime.InteropServices.COMException 'Textmarke 
        ' existiert nicht
            Exit Sub
        End Try
    End Sub