Private Sub ReadBinaryFile(filename As String)
Dim i&, sBytes$, Lst$()
Dim XETM, XDMM As String
Dim Textures() As String
Dim temp$
Open (filename) For Binary As #1
sBytes = Space$(LOF(1))
Get #1, , sBytes
Close #1
Lst = Split(sBytes, Chr$(0))
 
XETM = InStr(sBytes, "XETM") 'Position von XETM ermitteln
XDMM = InStr(sBytes, "XDMM") 'Position von XDMM ermitteln
 
temp$ = Mid$(sBytes, XETM, XDMM - XETM) 'XDMM - XETM = Länge der Strings
Textures = Split(temp, "0", -1, vbTextCompare) 'Strings aber der "0" splitten
MsgBox Textures(0) 'Den ersten String ausgeben
End Sub