Visual Basic - Abrir un archivo

Que tal ....
Alguien me podria ayudar, con la sintaxi, para poder abrir un archivo de texto, o de Excel...

Y Como extraer su informacion , todo esto desde una aplicacion de Visual ( Claro esta)

Gracias de Antemano

Saludos.

Private Sub cmdAbrirArchivo_Click()

With CommonDialog1
.DialogTitle = "Abrir Archivo de texto ..."
.Filter = "*.txt|*.txt|"
.InitDir = "D:\Mis Documentos\"
.ShowOpen

Open .filename For Input As #1
Do While Not EOF(1) ' Repite el bucle hasta el final del archivo.
Input #1, cadena ' Obtiene una cadena
temp = cadena & vbCrLf 'muestra la primera linea y luego enter
temp2 = temp2 & temp
Text1 = temp2 'contenido del archivo
Loop
Close #1
cad = Text1
End With
End Sub