I tried your code, and after I removed the quotes around the remotehost it worked fine. So I changed:
Winsock1.Connect """" & txtMailserver & """", 25
to
Winsock1.Connect txtMailserver, 25