forma bir adet label atın
butonun click event'ine şunu yazın
Dim hede As New OpenFileDialog
If hede.ShowDialog = Windows.Forms.DialogResult.OK Then
Label1.Text = hede.FileName
End If

Ek Olarak: eğer sorununuz çözülmediyse, takıldığınız noktayı söylerseniz yardımcı olurum.