PRIVATE SUB ReadBinaryFile( filename AS STRING )
DIM i&, sBytes$, Lst$()
DIM XETM AS STRING, XDMM AS STRING
DIM pXETM AS LONG, pXDMM AS LONG   '<----
DIM temp$
 
OPEN( filename ) FOR BINARY AS #1
sBytes = SPACE$( LOF( 1 ))
GET #1,, sBytes
CLOSE #1
 
 
 'XETM und XDMM können nicht gleichzeitig String und Zahl sein.
 
pXETM = INSTR( sBytes, "XETM" ) 'Position (pXETM) von XETM ermitteln
pXDMM = INSTR( sBytes, "XDMM" ) 'Position (pXDMM) von XDMM ermitteln
 
'          
' abc... .XETM.............sls....sdkösK.......................XDMM
'             ^-- gesuchter String ---------------------------^  
'         ^pXETM                                               ^pXDMM  
'Startpos. des gesuchten Strings: pXETM + Länge XETM + 1 
 
temp$ = MID$( sBytes, (pXETM + 5), pXDMM - ( pXETM + 5 )) 
'  pXDMM - (pXETM+5) = Länge der Strings
 
 
Textures = Split( temp, CHR$( 0 ), - 1, vbTextCompare ) 'Strings ab der "0" _
  splitten
MSGBOX Textures( 0 ) 'Den ersten String ausgeben
END SUB