Private Sub Cmd_Speichern_Click()


Dim i As Long


Dim ausgabestr, filename As String





filename = "C:\WINDOWS\Desktop\test.tmp"


ausgabestr = "Hallo Welt" ' 10(!) Zeichen


ausgabestr = "Hal" ' 3(!) Zeichen





If Len(Dir(filename)) > 0 Then


  Kill filename


End If





Open filename For Binary Access Write As #2


For i = 1 To Len(ausgabestr)


  Put #2, i, Asc(Mid(ausgabestr, i, 1))


Next i


Close #2  ' hier wird noch ein 00 angehängt!! Warum?





End Sub

Open filename For Binary Access Write As #2


For i = 1 To Len(ausgabestr)


  Put #2, i, CByte(Asc(Mid(ausgabestr, i, 1)))  


Next i