fácil - > VB6 abrir un txt y almacenar en una variable

[dazkot v3]

esta es:

Private Sub Command1_Click()
Dim c As String
Dim filtros As String
Dim l As Variant
On Error GoTo eabrir
commondialog1.Cancelerror = True
filtros = "archivos de texto(*.txt)|*.txt"
commondialog1.Filter = filtros
commondialog1.showopen
c = commondialog1.FileName
l = FileLen(c)
Open c For Input As #1
Text.Text = Input$(l, #1)
Close
esalirabrir:
Exit Sub
eabrir:
MsgBox "error", 16, "error"
Resume esalirabrir
End Sub



si le quito el "on error goto ....."
me dice que se requiere un objeto