dim email as string=textbox1.text  

mail.to.add("'" & email & "'")

وقتی متغیرت از جنس string هست و آرگومان تابع add هم همینطور، اینا رو برای چی گذاشتی؟