REM Code-Schnipsel für eine FileOpen-Dialog
REM Der Dateiname der ausgewählte Datei wird auf der String-Variable Dateiname abgelegt 
Imports System.IO

Module ...

  Dim Dateiname As String

  Dim ofdialog As OpenFileDialog
  ofdialog = New OpenFileDialog()
  ofdialog.InitialDirectory = "c:\Temp"
  ofdialog.Filter = "xml files (*.xml)|*.xml|All files (*.*)|*.*"
  ofdialog.FilterIndex = 1
  ofdialog.RestoreDirectory = True

  If ofdialog.ShowDialog() = DialogResult.OK Then
    Dateiname = ofdialog.FileName
    TextBoxDateiname.Text = Dateiname
  End If
End Module