' Word-Objekt Variable definieren
Dim wApp As New Word.Document
Dim myTMP As String = ""
Dim I As Short = 0
'
Try
   With wApp.Styles("Überschrift 1")
     .Font.Name = "Arial"
     .Font.Size = 11
     .Font.Bold = True
     .Font.Italic = False
     .ParagraphFormat.SpaceBefore = 0
     .ParagraphFormat.SpaceAfter = 3
   End With
 
   '//
   select case MyVariable
      case 1: myTMP="abc"
      case 2: myTMP="def"
   end select
 
   with wApp.Paragraphs(1)
     .Range.Text = "Hallo Welt" & myTMP
     .Format.Style = "Überschrift 1"
   End With
   wApp.Paragraphs.Add()
 
   With wApp.Paragraphs(2)
     .Range.Text = "Hallo Welt 2"
     .Format.Style = "Überschrift 2"
   End With
 
   wApp.Paragraphs.Add()
   wApp.Paragraphs.Add()
 
   '... hier kommt noch mehr Text in gleicher Form wie oben .... 
   '...
   '... 
 
   wApp.Application.Visible = True
   wApp = Nothing
 
Catch ex As Exception
 
   MsgBox("Fehler beim erstellen eines Word-Ducuments")
   wApp = Nothing
 
End Try