Option Explicit
 
 
Private Sub Command1_Click()
 
    Dim FNr As Long
    Dim Data() As Byte
    Dim FileNameIn As String
 
    FileNameIn = "C:\test.nlxwb"
    FNr = FreeFile
 
    Open FileNameIn For Binary Access Read As #FNr
 
    ReDim Data(0 To (LOF(FNr) - 1))
 
    Get #FNr, , Data
 
    Close #FNr
 
End Sub