Private Sub Command1_Click()
     Dim text As String
     text = "deinWert"
 
         Dim f As Integer
         f = FreeFile
         Open "c:\text.txt" For Output As #f
         Print #f, text
     Close #f
End Sub

Dim Text as String
Dim F as Integer
Dim sInhalt as String
 
     F = Freefile
         Open "c:\text.txt" for input as #F
         Line Input #F, sInhalt
     Close #F
text = sInhalt

cu
Bris

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