To Save file you can use FileStram and StreamWriter Classes form System.Io
For Example :
Dim fs As FileStream=New FileStrea("FullFilePath","FileMode")
Dim sw as StreamWriter=New StreamWriter(fs)
sw.writeline("Textbox1.Text")
sw.writeline("Textbox2.Text")
sw.Close
fs.Close
sw=Nothing
fs=Nothing
To send Mail on One Click use Following Code :
' place the following code in a command button click event
Private Sub cmdSendMail_Click()
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set objMailItem = objOutlook.CreateItem(olMailItem)
With objMailItem.To = "ToAddress"
.Subject = "subject"
.Body = "email message"
.Attachment = "c:\path\file.txt"
.Send
End With
Set objMailItem = Nothing
Set objOutlook = Nothing
End Sub