String in *.txt schreiben

[baminc]

Hallo,

ich hab noch mal ne Frage wie kann ich den Wert eines Strings in eine TXT datei speichern bzw auslesen?

Mfg #
baminc

 

[wincnc]

Dim Text As String
Text = Hallo

' Datei schreiben
Nr = FreeFile
Open "C:\DeineDatei.txt" for Binary As #Nr
Put #Nr, , Text
Close #Nr

' Datei lesen
Nr = FreeFile
Open "C:\DeineDatei.txt" for Binary As #Nr
Text = Space(LOF(Nr))
Get #Nr, , Text
Close #Nr