SaveFileDialog
______________________________________________________
'Aggiungi il savefiledialog
Dim save as new SaveFileDialog
'metti il formato
save.filter = "File di testo|.txt"
'metti che si apre il savefiledialog e salvi
If save.ShowDialog = Windows.Forms.DialogResult.OK Then
          Dim c As New IO.StreamWriter(save.FileName)
          c.WriteLine(TextBox1.Text)
          c.Close()
End If
______________________________________________________

OpenFileDialog
______________________________________________________

'Aggiungi l'OpenFileDialog
Dim Open As New OpenFileDialog
'metti il formato
Open.Filter = "Script Files|.vbs"
'Metti che si apre l'OpenFileDialog e apra
If Open.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim c As New IO.StreamReader(Open.FileName)
            TB1.Text = c.ReadToEnd
            c.Close()
End If
______________________________________________________

FolderBrowserDialog
______________________________________________________
'Aggiungi il FolderBrowserDialog
Dim Folder as new FolderBrowserDialog
Folder.ShowDialog()
TextBox1.Text = FolderBrowserDialog1.SelectedPath