Visual Basic - Quiero abrir un .txt con Open "ruta" as Input

Private Sub Form_Load()

 Const Path As String = "C:\Users\USAGER\Documents\MHGZ\Proyecto_Hz\programa\" ' Ruta siempre terminada en \

 Dim DirName As String

 Dim NewDirName As String

 Dim n

 Dim j

 Dim caracteres As Integer

 Dim cadena2 As String

 Dim cadena3 As String

 Dim nombre As String

 Dim Fecha As Long

 Dim Guardafecha1 As Long

 Dim Guardafecha2 As Long

 Dim Guardafecha3 As Long

 Dim Estaeslacarpeta As Long

 Dim Fechasistema As Long

 Dim Dia As String

 Dim Mes As String

 Dim Ultima_Cadena As String

 Dim NombreCarpeta As String

 Dim cadenamitad As String

 Dim t As Integer

 Dim Archivo_TXT As String

 Dim ArchivoName As String

 Dim Path1 As String

 Guardafecha1 = 1

 DirName = Dir(Path, vbDirectory)

'////////////////////////////////////////////////  1RA PARTE   SE BUSCA LA CARPETA MAS RECIENTE PARA ABRIRLA Y BUSCAR EL .TXT//////////////////////

Do While (Not DirName = vbNullString)

   List1.AddItem (DirName)

File1.Path = Path

n = 1

cadena2 = Mid(DirName, n, 9)

If cadena2 = "Schedule_" Then

cadenamitad = "Schedule_"

cadena3 = Mid(DirName, 10, 17)

Ultima_Cadena = Mid(DirName, 18, 24)

Fecha = Val(cadena3)

 End If

If Fecha > Guardafecha1 Then

Guardafecha1 = Fecha

End If

 DirName = Dir()

 'DoEvents

Loop ' //////////////////////////////////////////////////// FIN PRIMERA PARTE /////////////////////////////////////////////////

'//////////////////////////////////////////////////////// 2DA PARTE SE LLEN LOS ARCHIVOS .TXT//////////////////////  ////////////////////////////

NombreCarpeta = (cadenamitad & Guardafecha1 & Ultima_Cadena) ' NombreCarpeta va a tener el nombre de la carpeta mas reciente

MsgBox (NombreCarpeta & " nombre carpeta reciente")

Path1 = File1.Path & "\" & NombreCarpeta & "\" '///// file1.path =  C:\Users\USAGER\Documents\MHGZ\Proyecto_Hz\programa\ y se graga la carpeta mas reciente.

 MsgBox (Path1 & "    dentro de carpeta")

  File1.Path = Path1

'////////////////////////// SE LEEN LOS ARCHIVOS TXT DE LA CARPETA ////////////////////////

  For j = 0 To File1.ListCount - 1

    cadena2 = File1.List(j)  '///////////////busca los archivos .txt

Open "C:\Users\USAGER\Documents\MHGZ\Proyecto_Hz\programa\ & NombreCarpeta & " \ " & cadena2 " For Input As FreeFile

Close

    Next

End Sub

Open "C:\Users\USAGER\Documents\MHGZ\Proyecto_Hz\programa\ & NombreCarpeta & " \ " & cadena2 " For Input As FreeFile

Open "C:\Users\USAGER\Documents\MHGZ\Proyecto_Hz\programa\" & NombreCarpeta & "\" & cadena2 For Input As FreeFile