Open SelectFile For Input As #1   
    Do While Not EOF(1)   
    Line Input #1, Textzeile   
       If Textzeile = "$1" Then
        x = x + 1
        Temp = Datei & x
       Else
          f = FreeFile
          Open Temp For Append As #f
          Print #f, Textzeile 'slines
          Close #f
        End If
    Loop
Close #1