Private sub cmd_ueber_Click()
    Dim F as Integer
    F = FreeFile
      Open "c:\textfile.txt" for append as #F
      Print #F, "dein text der gescrieben werden soll oder dein String der den" & _
        "text enthält"
    Close #F
End Sub

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)