Dim s1 As String
 
s1 = "aa"
Open "C:\testfile.txt" For Binary Access Write As #1
Put #1, , s1
Close #1
MsgBox FileLen("C:\testfile.txt") ' Gibt wie erwartet 2 aus

Gru?,
Nukeduke

if (youAreHappyAndYouKnowIt) {
???ClapYourHands();
}