Visual Basic - Archivos de Texto

Amigos, no he podido abrir un archivo de texto cuyo nombre lo obtengo desde un textbox(tiene que ser asi pues manejo una base de datos de donde se debe seleccionar el nombre e estos, esdecir va cambiando de acuerdo a la aplicacion de mi programa), les adjunto mi programa como he tratadode hacerlo9, pero SIEMPRE me arroja el mismo error( Nº62) y no lo he podido reparar.

Private Sub Command1_Click()
Dim DDD As String
DDD = Text1.Text
Dim DDD as String
DDD=Text1.Text 'aca se introduce el nombre del archivo de texto a abrir'
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(DDD,1)
Dim TextoCompleto as String
TextoCompleto= f.ReadAll
f.Close


End Sub

Gracias. Cualquier consejo es util
Chau

No te compliques...

Hace esto:

Dim archivo as String
Dim cadena as String

If Len(App.Path) > 3 then
archivo = App.Path & "\" & DDD
else
archivo = App.Path & DDD
End If

Open archivo For Input As #1
Do While Not EOF(1)
LineInput #1, cadena
Loop
Close

Espero que te sirva, Saludos!!!

El código que te agrego seguidmente es la que figura es la ayuda del MSDN, fijate que se crea la variante TextStream

Sub Read_Files()
Dim fso As New FileSystemObject, txtfile, fil1 As File, ts As TextStream
' Escribe una línea.
Set fil1 = fso.GetFile("c:\prueba.txt")
Set ts = fil1.OpenAsTextStream(ForReading)
s = ts.ReadAll
MsgBox s
ts.Close
End Sub