Imports System.IO
Imports Microsoft.Office.Interop
Public Class clsWord
 
    Dim oword As Word.Application
    Dim odoc As Word.Document
 
    Sub Dateizugriff(ByVal name As String)
 
            oword = New Word.Application()
            oword.Visible = True     
    End Sub
    Sub SchreibeText(ByVal Text As String)
        odoc.Selection.TypeText(Text)
    End Sub
end class
 
 
Private Sub TextSchreiben_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles TextSchreiben.Click
 
 Dim WD As clsWord
 
        WD = New clsWord()
 
        With WD
            .Dateizugriff("D:\Users\Hannes\Documents\Soz.docx")
            .SchreibeText(ZwischenText)
             End With
    End Sub