// Zum Ordner öffnen
Dim ofd As New OpenFileDialog
ofd.ShowDialog()
TextBox1.Text = ofd.FileName
//Speichern
"SafeFileDialog1" Aus der Toolbox ins Programm ziehen
SaveFileDialog1.Filter = "txt(*.txt)| *.txt"
SaveFileDialog1.ShowDialog()
TextBox1.Text = SaveFileDialog1.FileName
müsste das eig. sein