Change:
Dim Send_To, Subject, MessageBody, Attachments
to:
Dim Send_To As String, Subject As String, MessageBody As String, Attachments As String