how to read any file

[12345]

hello everybody

i try to read a file with input function but it works only with files that contains regular characters

if i want to read a mid file with this code:

Dim filetext, filename As String
filename = Dlg.filename
Open filename For Input As #1
    filetext = Input(LOF(1), #1) 
Close #1

It give error: input past end of file
why?