Private Sub cmdOK_Click()
Dim wApp As Object ' Word-Objekt Variable definieren
 
If IsEXERunning("winword.exe") Then
    MsgBox "Jepp - auch WinWord ist gestartet."
Else
    ' Word-Objekt erzeugen
    Set wApp = CreateObject("Word.Application.8")
End If
 
    With wApp
        ' Word anzeigen
        .Application.Visible = True
        .Application.Activate
 
    If optFax = True And optLTLNetPr = True Then
        Select Case lstLTLNetPr.Text......
.....
.....
end with