vba code to automail user based on user input

[siddo]

Is there a way to take input(email-id) from the user and automatically mail the same excel sheet using vba code ? any help would be greatly appreciated.

 

[siddo]

Option Explicit

Private Sub CommandButton1_Click()
    On Error GoTo ErrHandler
   
    ' SET Outlook APPLICATION OBJECT.
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")
   
    ' CREATE EMAIL OBJECT.
    Dim objEmail As Object
    Set objEmail = objOutlook.CreateItem(olMailItem)

    With objEmail
        .to = "webadmin@encodedna.com"
        .Subject = "This is a test message from Arun Banik"
        .Body = "Hi there"
        .Display           ' DISPLAY MESSAGE.
    End With
   
    ' CLEAR.
    Set objEmail = Nothing:    Set objOutlook = Nothing
       
ErrHandler:
    '
End Sub

With objEmail
    .To = "arunbanik21@rediffmail.com"
    .CC = "arun@mail.com"
    .BCC = "arun@hotmail.com"
    .Subject = "This is a test message from Arun"
    .Body = "Hi there"
    .Attachments.Add ("e:\report.doc")
    .Send
End With

I want to take email id input from user before close and want to send him the same excel file to which he has given inputs, so can anyone help me with the modification