Visual Basic - Ayuda FileListBox / Abrir Archivo

Hola gente, como andan?

tengo un problema para abrir un archivo (xls) luego de haberlo seleccionado con el FileListBox.

O sea, quiero apretar un botón y que me abra el archivo seleccionado.

El código que tengo cargado es el siguiente:

Dim ruta As String
ruta = File1.Path & "/" & File1.FileName
Open ruta For Input As #1

No se si está bien.

Si pueden darme una mano, se los agradezco.

Saludos.

intentalo asi Mariano
Private Sub Command1_Click()
r = Chr(13) & Chr(10)
Dim archivo
if len(dir1) = 3 then
ruta = File1.Path & File1.FileName
archivo = FreeFile
Open ruta For Input As archivo
Do While Not EOF(archivo)
Line Input #archivo, Txt
Text1 = Text1 & r & Txt
Loop
Close archivo
elseif len(dir1) > 3 then
ruta = File1.Path & "\" & File1.FileName
archivo = FreeFile
Open ruta " For Input As archivo
Do While Not EOF(archivo)
Line Input #archivo, Txt
Text1 = Text1 & r & Txt
Loop
Close archivo
end if
End Sub