Modify your SendObject statement to something like this:
Dim strEmail As String
' Use Me.YourTextbox name in place of the
' Me.txtEmailAdd in the following statement.
strEmail = Me.txtEmailAdd
DoCmd.SendObject , , , strEmail, _
, , "Subject Line", , True
If you need to put multiple...