Dim wdAppl As Object
  Dim wdDoc As Object
  Dim wdPara As Object
  Dim intParasCnt As Integer
  Dim i As Integer
  Dim strBuffer As String
 
  Set wdAppl = Nothing
 
  Err.Clear
  'Word starten:
  On Error GoTo err_WordAppl
  Set wdAppl = CreateObject("Word.Application")
  DoEvents
  On Error GoTo 0
 
 With wdAppl
    'Word-/Dokument-Ansicht einstellen:
    .Application.Visible = True
    .Application.Activate
    .WindowState = wdWindowStateMaximize
    'Neues Dokument anlegen und Verweis setzen:
    Set wdDoc = .Documents.Add
  End With
 
 With wdDoc
    .Range.Text = Text1.Text
    .Range(0, 0).Select
  End With
 
err_WordAppl:
  MsgBox "Konnte keine Verbindung zu Word herstellen !", _
          vbOKOnly + vbCritical, Me.Caption
Exit Sub

Real programmer do not comment their code;
what?s hard to write should be hard to read