[Resolvido] Erro em função

Oi oq é o "run-time erro '6':" da dando este erro nesta linha.

num_bytes = LOF(fnum)

É uma função para abrir um Hex.

Private Sub ab_Click()

DlgArquivo.Flags = _
cdlOFNFileMustExist + _
cdlOFNHideReadOnly + _
cdlOFNLongNames

On Error Resume Next
TxtDocumento.Text = ""
' Habilita a opção de cancelar a abertura.
'DlgArquivo.CancelError = True
' Título da janela de Abrir Arquivo.
DlgArquivo.DialogTitle = "Abrir Arquivo"
' Exibe a caixa de diálogo para abrir arquivo.
DlgArquivo.ShowOpen
If Err.Number = cdlCancel Then Exit Sub
If Err.Number <> 0 Then
MsgBox "Error" & Str$(Err.Number) & _
" selecting file." & vbCrLf & _
Err.Description
End If
On Error GoTo 0

LoadFile DlgArquivo.FileName, DlgArquivo.FileTitle
End Sub

Private Sub LoadFile(fname As String, ftitle As String)
Dim fnum As Integer
Dim num_bytes As Integer
Dim bytes() As Byte
Dim unk As String
Dim ch As Integer
Dim line1 As String
Dim line2 As String
Dim txt As String
Dim i As Integer
Dim j As Integer

'Me.Caption = "Editor de Textos - " + FileName
' Abre um arquivo para entrada de informações.
TxtDocumento.Text = ""
FileName = fname
FileTitle = ftitle
DoEvents

'Introduzido
fnum = FreeFile
Open fname For Binary As #fnum
num_bytes = LOF(fnum)
ReDim bytes(1 To num_bytes)
Get #fnum, , bytes
Close fnum

i = 1

Do While i <= num_bytes
line1 = Format$(i, "@@@@@@: ")
line2 = ""
For j = 0 To 7
If i + j > num_bytes Then
line1 = line1
Else
ch = bytes(i + j)
txt = txt & Format$(Hex$(ch), "@@")
If ch >= 32 Then
line2 = line2 & Chr$(ch)
Else
line2 = line2 & unk
End If
End If
Next j
line2 = line2 & line2
i = i + 8
Loop

TxtDocumento.Text = txt
' Fecha o arquivo.
Close #1

End Sub
se puderem me ajudar obrigado.