Private Sub Command1_Click()
    Dim file As String
    Dim filepos As Long
    Dim oldpos As Long
 
    Open "g:\test.tst" For Binary As #1
    file = Space(LOF(1))
    Get #1, , file
    Close #1
 
    Do While filepos < Len(file)
        filepos = InStr(file, Chr(0))
        List1.AddItem Left(file, filepos)
        file = Mid(file, filepos)
        filepos = 1
        Do
            filepos = filepos + 1
            If filepos = Len(file) Then
                List2.AddItem filepos
                Exit Do
            End If
            If Mid(file, filepos, 1) <> Chr(0) Then
                List2.AddItem filepos - 1
                file = Mid(file, filepos)
                Exit Do
            End If
        Loop
    Loop
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...