Dim anzahl_zeichen As String
        Dim anzahl_neun As String
        Dim i As Integer
 
        anzahl_neun = ""
        anzahl_zeichen = konto_laenge - 4
 
        For i = 1 To anzahl_zeichen
 
            anzahl_neun = anzahl_neun & 9
 
        Next
 
        My.Computer.FileSystem.WriteAllText("Daten\05_Verkaeufe_Anzahl.txt", _
          anzahl_neun & "99A3" & txt_verkaeufe1.Text & vbCrLf, False)