Botón para buscar archivo

        ' Dim openFileDialog1 As OpenFileDialog = New OpenFileDialog()
        Dim openFileDialog1 As New OpenFileDialog()
        openFileDialog1.Filter = "Acceso Directo (*.txt)|*.txt"
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            tb_ruta_conex.Text = openFileDialog1.FileName
        Else
            Exit Sub
        End If

Buscar y capturar ruta de un archivo

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim openfiledialog1 As New OpenFileDialog()
        Dim rutaArchivo As String = ""

        If openfiledialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            rutaArchivo = openfiledialog1.FileName()
            MessageBox.Show(rutaArchivo)
        End If
    End Sub