Visual Basic - Abrir archivo

Tengo un codigo en el cual abro un archivo de texto con open "c:\archivo.txt" y linea por linea voy extrayendo caracteres con Mid(line,num,num) y los almaceno en variables, el problema es que me llegan muchos archivos txt y es molesto estar cambiando la ruta para que lea distintos archivos, como puedo hacer para que con algun control no se tal vez con el commondialog pueda direccionar el archivo para ya no meterme al codigo y cambiar la ruta.

Puedes utilizar commondialog ejemplo:
Private Sub cmdAbrir_Click()
Dim a As String
CD.Filter = "Archivo de Texto (*.txt)|*.TXT"
CD.ShowOpen
If CD.FileName <> "" Then
Open CD.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, a 'Leer
Loop
Close #1
End If
End Sub

Gracias Miguel, ya lo habia resuelto pero de todas formas gracias.