Private Type Buchung
   Buchungsart As String * 1
   Valutadatum As String * 10
   Erfassdatum As String * 10
   Buchungsnummer As String * 6
   Buchungstext As String * 70
   Konto As String * 18
   Betrag As String * 20
   Steuercode As String * 2
   Steuerbetrag As String * 20
   Währungscode As String * 3
   Fremdwährungsbetrag As String * 20
   Trennzeichen As String * 4           'für die 2crlf
End Type
 
Private Sub Command1_Click()
   Dim f As Long
   Dim b As Buchung
 
   With b                               'Beispieldaten
      .Buchungsart = "A"
      .Valutadatum = "01.01.2010"
      .Erfassdatum = "heute"
      .Buchungsnummer = "100"
      .Buchungstext = "meine Buchung"
      .Konto = "700"
      .Betrag = "500,00"
      .Steuercode = "30"
      .Steuerbetrag = "677"
      .Währungscode = "67"
      .Fremdwährungsbetrag = "900"
      .Trennzeichen = vbCrLf & vbCrLf
   End With
 
   f = FreeFile
   Open "D:\test.txt" For Random As f Len = Len(b)
 
      Put #f, , b
 
   Close f
End Sub