Public Class Form6
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim appWord As Object
        Dim doc As Object
        appWord = CreateObject("Word.Application")
        appWord.Visible = True
 
        Const laufwerk = "Z:\INT\Data\CustomerSolutions\Systems\DE_SY\"
        Const ordner = "\1. Projektierung\1.1 Anfrage"
 
        Dim Datum As String
        Dim Zeit As String
 
        Datum = Date.Today
        Zeit = TimeOfDay
 
 
        doc = appWord.Documents.Add
 
        With doc
 
            'Text im Hauptteil des Dokuments zuweisen
            .Range.Text = TextBox15.Text & vbCrLf & _
                    "Ansprechpartner: " & TextBox14.Text & vbCrLf & _
                    "Datum: " & Datum & " / " & Zeit & vbCrLf & _
                    "Telefon: " & TextBox13.Text & vbCrLf & _
                    "E-mail: " & TextBox12.Text & vbCrLf & _
                    "Projektnummer: " & TextBox19.Text & "-" & TextBox18.Text & _
                    vbCrLf & _
                    "Angebotsnummer: " & TextBox16.Text & vbCrLf & vbCrLf & _
                    "Betreff: " & TextBox2.Text & vbCrLf & vbCrLf & vbCrLf & _
                    "Notiz: " & TextBox3.Text
 
            'Kopfzeilen-Text zuweisen
            '.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = _
            '      "Telefonnotiz vom " & Format$(Now, "Long Date") & "/" & 
            ' TextBox17.Text
 
            'Fusszeilen-Text zuweisen
            '.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = _
            '      "Erstellt am " & Format$(Now, "Long Date")
 
        End With
 
        'Speicherpfad ermitteln
        '##################################################################
        Dim folder As String
        Dim v As String
        Dim v1 As String
        Dim speicherpfad As String
 
 
        v = TextBox19.Text
        v1 = "\" & TextBox18.Text
        v = Replace(v, "!", "")
        folder = Microsoft.VisualBasic.Left(v, 4) + "xx"
        speicherpfad = laufwerk + folder + "\" + v + v1 + ordner
 
        'Abfrage speichern
        'If TextBox19.Text > 0 Then
        If MsgBox("Notiz speichern unter: " & speicherpfad, vbOKCancel) = vbOK _
          Then
            doc.SaveAs(Filename:=speicherpfad & "/" & Datum & " (" & Zeit & ")" & _
            "& " / " & Notiz.doc")
        End If
        'End If
 
        'Unload(Me)
        doc = Nothing
 
    End Sub
 
End Class

doc.SaveAs(Filename:=speicherpfad & "/" & Datum & " (" & Zeit & ") & " / " &" & _
  "Notiz.doc")

Datum = Date.Today