Dim data As String = "Header : afowierjfaosirejfasleajfsdklf" & vbCrLf _
          & _
        "asdkfjasödlkfajsdlkfjasdlkfajsdlkfjas" & vbCrLf & _
        "alsjdfaskldjfaslkdjfaslkdfjaskdfjaslkdf" & vbCrLf & _
        "alskdfaslkdjfaslkdjfaslkdfjasdfj"
 
        Dim fs As New IO.FileStream("C:\test.bin", FileMode.Create, _
          FileAccess.Write, FileShare.None)
        Dim bw As New IO.BinaryWriter(fs)
 
        bw.Write(data)
        bw.Close()

        fs = New IO.FileStream("C:\test.bin", FileMode.Open, FileAccess.Read, _
          FileShare.Read)
        Dim br As New IO.BinaryReader(fs)
 
        Dim data1 As String = br.ReadString()
        br.Close()
 
        Debug.Write(data1)

Header : afowierjfaosirejfasleajfsdklf
asdkfjasödlkfajsdlkfjasdlkfajsdlkfjas
alsjdfaskldjfaslkdjfaslkdfjaskdfjaslkdf
alskdfaslkdjfaslkdjfaslkdfjasdfj

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist