In case you're still interested:

Try something along these lines:

dim strAttachments

strAttachments = "C:\File1.txt" + ";" + ""C:\File2.txt"

oSendMailTask.FileAttachments = strAttachments

This adds two attachments to your email.