[Resolvido] Mensagem de erro al abre um txt.

Coloquei o código para abrir um texto direto no Form_Load mas quando ele não encontra o arquivo ele trava. Existe algum código que empeça isto?

On Error Resume Next

If Err <> 0 Then

Exit Sub

Else

FileName = App.Path & "\texto.txt"

' Abre um arquivo para entrada de informações.

Open FileName For Input As #1

Do While Not EOF(1)

Text3.Text = Input$(LOF(1), 1)

If Err = 62 Then

Exit Sub

End If

Loop

' Fecha o arquivo.

Close #1

End If