Sub test()
Dim TextBox1 As String
stringToDOC TextBox1, "K:\Bernd\test.doc"
End Sub
Sub test()
Dim TextBox1 As String
stringToDOC Tabelle1.TextBox1.Text, Pfad
End Sub
Option Explicit
Sub stringToDOC(Text As String, FileName As String)
Dim objWORD As Object, objDOC As Object
Set objWORD = CreateObject("Word.Application")
Set objDOC = objWORD.Documents.Add
objDOC.Paragraphs(1) = Text
objDOC.SaveAs FileName
objDOC.Close
objWORD.Quit
Set objDOC = Nothing
Set objWORD = Nothing
End Sub
Sub test()
Dim TextBox1 As String
stringToDOC UserForm1.TextBox1.Text, "C:\Word\test.doc"
End Sub