Und dann brauchst du eben noch den Button, der das ganze speichert, weil das eben ist ja nur dafür da, um den Pfad zum speichern auszuwählen. Also
in etwa so
Quellcode
If Not Label1.Text = "Speichern unter..." Then
Dim VBKenner As IO.StreamWriter = New IO.StreamWriter(Label1.Text)