Public Class clsWord
 
    Dim oword As Word.Application
    Dim odoc As Word.Document
 
 Sub Dateioeffnen(ByVal name As String)
 
        oword = GetObject(, "Word.Application")
        If oword Is Nothing Then
            MsgBox("oword ist nothing; neue Instanz erstellen")
            oword = New Word.Application
        End If
        odoc = oword.Documents.Open(name)
    End Sub