Private Sub cmdSave_Click()
    Dim Answer As VbMsgBoxResult
    
    If lstYours.ListCount = -0 Then
        MsgBox "Cannot save or send as you have nothing in your list.", vbOKOnly + vbExclamation, "Sorry!"
    Else
        Answer = "InputBox2"
        YourFile = InputBox2("Please enter your name:" & vbCrLf & "Thanks!" & vbCrLf & "This will help me determine who's list I am looking at.", "FileName", "EnterNameHere")
        If InputBox2 = vbOK Then
        
        Dim NextItem As Long
        Open "E:\" & YourFile & ".txt" For Append As #1
            ' Loop through the items in the listbox
            For NextItem = 0 To lstYours.ListCount - 1
                ' Write to the file the item text
                Print #1, lstYours.List(NextItem)
            Next
        Close #1
    
        ' Log into the E-Mail server
        EMailSession.SignOn
        EMailMessage.SessionID = EMailSession.SessionID
        ' Create the Message
        EMailMessage.Compose
        EMailMessage.RecipAddress = "blah@hotmail.com"
        EMailMessage.RecipDisplayName = "freddy"
        EMailMessage.MsgSubject = "Here is " & YourFile & "'s list they sent."
        EMailMessage.MsgNoteText = "Hello Freddy, here is my list." & vbCrLf & "Talk Soon!!"
        EMailMessage.AttachmentPathName = "E:\" & YourFile & ".txt"
        ' Send the Message
        EMailMessage.Send
        ' Log Off the E-Mail Server
        EMailSession.SignOff
    
        MsgBox "Your list has been sent to the Programmer (freddy)." & vbCrLf & "Thankyou!", vbOKOnly + vbExclamation, "E-Mail Sent!"
    Else
        MsgBox "You Canceled", vbOKOnly, "Canceled"
        End If
        
    End If
    

End Sub

YourFile = InputBox2 = InputBox("Please enter your name:" & vbCrLf & "Thanks!" & vbCrLf & "This will help me determine who's list I am looking at.", "FileName", "EnterNameHere")

MsgButton = Msgbox ("Blah blah", vbokcancel + vbExclamation, "whatever")
if msgbutton = VBok then
' whatever u wanna do
else if msgbutton = VBCancel then
' u can use else here too
end if

Answer = InputBox(...

If Answer = vbNullString Then
  'either user pressed cancel or user did not enter anything
Else
  'user entered something...
End If

Answer = InputBox(...

If Answer = vbNullString Then
  'user pressed cancel
ElseIf Answer = "EnterNameHere" then
  'user just pressed ok and did not enter name
else
  'user entered something...
End If

Private Sub cmdSave_Click()
    
    If lstYours.ListCount = -0 Then
        MsgBox "Cannot save or send as you have nothing in your list.", vbOKOnly + vbExclamation, "Sorry!"
    Else
        
        YourFile = InputBox("Please enter your name:" & vbCrLf & "Thanks!" & vbCrLf & "This will help me determine who's list I am looking at.", "FileName", "EnterNameHere")
        
        Select Case YourFile
        Case YourFile = ""
            MsgBox "Canceling", vbOKOnly, "Cancel!"
        Case YourFile = "EnterNameHere"
            MsgBox "Canceling", vbOKOnly, "Cancel!"
        Case Else
        
        Dim NextItem As Long
        Open "E:\" & YourFile & ".txt" For Append As #1
            ' Loop through the items in the listbox
            For NextItem = 0 To lstYours.ListCount - 1
                ' Write to the file the item text
                Print #1, lstYours.List(NextItem)
            Next
        Close #1
    
        ' Log into the E-Mail server
        EMailSession.SignOn
        EMailMessage.SessionID = EMailSession.SessionID
        ' Create the Message
        EMailMessage.Compose
        EMailMessage.RecipAddress = "j@hotmail.com"
        EMailMessage.RecipDisplayName = "l"
        EMailMessage.MsgSubject = "Here is " & YourFile & "'s list they sent."
        EMailMessage.MsgNoteText = "Hello l, here is my list." & vbCrLf & "Talk Soon!!"
        EMailMessage.AttachmentPathName = "E:\" & YourFile & ".txt"
        ' Send the Message
        EMailMessage.Send
        ' Log Off the E-Mail Server
        EMailSession.SignOff
        
        MsgBox "Your list has been sent to the Programmer (l)." & vbCrLf & "Thankyou!", vbOKOnly + vbExclamation, "E-Mail Sent!"
        
        End Select
    End If
    

End Sub