Public Sub txt_AppendLine(ByVal sFilename As String, _
  ByVal sLine As String)
  Dim F As Integer
 
  ' Datei zum "Anhängen" von Daten öffnen
  ' und Textzeile ans Ende anfügen
  F = FreeFile
  Open sFilename For Append As #F
  Print #F, sLine
  Close #F
End Sub

Public Function DocExists(ByVal sDoc As String) As Boolean
Dim Text(1) As String
Dim Temp As String
Dim F As Integer
 
If (FileExists(App.Path & "\SOA.sys")) Then
      'Dateinr für Zugriff bestimmen
      F = FreeFile
 
      'Textdatei im Lesemodus öffnen
      Open App.Path & "\SOA.sys" For Input As #F
 
         While Not EOF(F)
            'Werte aus der Datei auslesen und im
            'String Temp speichern
            Line Input #F, Temp
            'Temp zuweisen
 Text(0) = Temp
  Text(1) = Split(Text(0), vbTab)(0)
If Text(1) = sDoc Then
 DocExists = True
 Exit Function
End If
         Wend
         'Datei schließen
      Close #F
End If
End Function