Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "net manager e (*.nme)|*.nme"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = saveFileDialog1.OpenFile()
If (myStream IsNot Nothing) Then
' Code to write the stream goes here.
End If
End If
http://msdn.microsoft.com/en-us/library/system.windows.forms.savefiledialog.aspx
http://msdn.microsoft.com/en-us/library/system.windows.forms.openfiledialog.aspx