Private Sub Write_Textfile(ByVal svText As String)
 
  Dim fn    As Long
  Dim sFile As String
  Dim sPath As String
 
  fn = FreeFile
  
  sPath = ThisWorkbook.Path & "\"
  sFile = "IMP_NAV_Serviceartikel.txt"
  
  Kill sPath & sFile
 
  Open sPath & sFile For Binary As fn
    Put #fn, 1, svText
  Close fn
 
End Sub