Visual Basic - ERROR AL LEER ARCHIVO VACIO... URGENTE

Hola AMIGOS, sé que Ustedes pueden. Mi problema es: ¿COMO SABER SI UN ARCHIVO (murdoch.dat) esta vacío, por que haciendo las pruebas con un archivo vacío me manda un error "La entrada de datos ha sobrepasado el final de archivo" error 62. PERO NO QUIERO USAR EL EVENTO ERROR por que el program se trunca.

mi programa es:

Private Sub cmdConvertir_click()

Open "c:\dat\Murdoch.dat" For Input As #1
Do
Line Input #1, variable

cad1 = Mid(variable, 1, 30)
fotoch = Mid(cad1, 6, 6)
fec = Mid(cad1, 15, 8)
tip = Mid(cad1, 30, 1)
hr = Mid(cad1, 26, 2) & ":" & Mid(cad1, 28, 2)

DataReloj.Recordset.AddNew
DataReloj.Recordset.Fields("FOTOCHECK") = fotoch
DataReloj.Recordset.Fields("FECHA") = fec
DataReloj.Recordset.Fields("TIPO") = tip
DataReloj.Recordset.Fields("HORA") = hr
DataReloj.Recordset.Fields("FLAG") = 0
DataReloj.Recordset.Update

Loop Until EOF(1)

End sub

Tengo 2 posibles soluciones

Primero que revises canto mide el archivo.. si este mide 0 pues esta vacio

Lo puedes hacer con :

FileLen("archivo")

Otra es como tu indicas capturando los errores

on error resume next

Do
Line Input #1, variable

if variable = "" then
close #1
msgbox "el archivo esta vacio"
exit sub
endif

on error goto 0

La funcion de "on error goto 0" hace que vuelvas a modo normal con los errores, osea ya no los capta

GRACIAS POR TU AYUDA... RESOLVI MI PROBLEMA.... ESTAMOS PARA AYUDARNOS