Private Sub Command1_Click()
Dim Text As String
Dim Einsatz As String
 
Einsatz = _
  """Ident"";""Farbe"";""Filiale"";""Groesse"";""Modell"";""WGR"";""Zahl"""
 
Nr = FreeFile
 
Open "D:\Test.txt" For Binary As #Nr
Text = Space(LOF(Nr))
Get #Nr, , Text
Close #Nr
 
Text = Einsatz & vbCrLf & Text
 
Nr = FreeFile
 
If Dir("D:\Test.txt") <> "" Then Kill "D:\Test.txt"
 
Open "D:\Test.txt" For Binary As #Nr
Put #Nr, , Text
Close #Nr
 
End Sub