Textdatei im Binärmodus zum Lesen öffnen, bearbeiten und speichern I

Open ... For Binary, Close, Get, Put
Dim gFileNum As Integer
Private Sub cmdCreate_Click()
gFileNum = FreeFile
Open "Test.bin" For Binary As gFileNum	Datei für binären Zugriff erzeugen. Wird kein Pfad genannt,
Close gFileNum	wird die Datei im selben Pfad wie dieses Programm
End Sub	angelegt.
Private Sub cmdOpen_Click()
Dim Puffer As String
gFileNum = FreeFile
Open "Test.bin" For Binary As gFileNum	Datei für binären Zugriff öffnen.
Puffer = String(100, " ")	Puffer-Variable mit 100 Leerstellen vorbelegen.
Get gFileNum, 1, Puffer	Liest genau 100 Stellen ab 1. Stelle ein.
Me.txtWrite = Puffer	Inhalt der Puffervariable in Textfeld übergeben.
Close gFileNum
End Sub
Private Sub cmdWrite_Click()
Dim Puffer As String
Puffer = InputBox("Bitte Test-String eingeben:")
gFileNum = FreeFile
Open "Test.bin" For Binary As gFileNum
Put #gFileNum, 1, Puffer	Schreibt Inhalt der Puffervariable an angegebene
Close gFileNum	Byte-Position.
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
	.