SaveFileDialog

   Dim Save As New SaveFileDialog
        Save.Filter = "Текстовые файлы (*.txt)|*.txt"
        If Save.ShowDialog = Windows.Forms.DialogResult.OK Then
            My.Computer.FileSystem.WriteAllText(Save.FileName, ListBox1.Text, False, System.Text.Encoding.Default)
        End If

Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click
        SaveFileDialog1.Filter = "Текстовые файлы (*.txt)|*.txt"
        Dim I As Integer = 0
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
            PrintLine(1, "Делители числа " & txt1.Text & ":")
            For I = 0 To Lst1.Items.Count - 1
                PrintLine(1, Lst1.Items(I))
            Next
            FileClose()
        End If
    End Sub