<code>Dim strFilename As String
Dim myString As String
Dim F As String
 
strFilename = "DeineBitmap.bmp"
myString = "DeinString"
 
<font color=green>' String anhängen</font>
F = FreeFile
Open strFilename For Append As #F
Print #F, myString;
Close #F
 
<font color=green>' String wieder auslesen
' Wichtig: String hatte die Länge 10 (muss man wissen)</font>
Dim lngFileLen As Long
F = FreeFile
Open strFilename For Binary As #F
lngFileLen = Lof(F)
myString = Space$(10)
Seek #F, lngFileLen - Len(myString)
Get #F, , myString
Close #F</code>