Dim F As Integer
  Dim sFile As String
  Dim sContents As String
 
  sFile = App.Path & "irgendwas.txt"
 
  sContents = "WEB " & vbCrLf & _
    "1" & vbCrLf & _
    "https://retaillink.wal-mart.com/...." & vbCrLf & _
    "Selection = AllTables" & vbCrLf & _
    "Formatting = All" & vbCrLf & _
    "PreFormattedTextToColumns = True" & vbCrLf & _
    "ConsecutiveDelimitersAsOne = True" & vbCrLf & _
    "SingleBlockTextImport = False" & vbCrLf & _
    "DisableDateRecognition = False" & vbCrLf
 
  F = FreeFile
  Open sFile For Output As #F
  Print #F, sContents;
  Close #F