I think this is what you want to do, assuming you don't need to loop through a list of email that is.
Add this to the top of the code:
Dim strEmail As String
strEmail = Me.txtEmail ' txtbox that holds the email address
' ..........Some Code Here..........................
' ..........Some...