Hola de nuevo marcelol,
Con OpenDialog seria algo así:
Código:
Dim result As DialogResult = openFileDialog.ShowDialog()
if result = DialogResult.OK Then
TextBox1.Text = openFileDialog.FileName
FileName te devuelve la ruta completa, con el nombre de archivo incluido.
Si solo quieres la ruta, sustituyes la linea del TextBox1 por:
Código:
TextBox1.Text = IO.Path.GetDirectoryName(openFileDialog.FileName)
Saludos.