Visual Basic - problema con mail

Hola, de nuevo tengo un problema, y es el siguiente: He conseguido este código para enviar correo, pero no consigo que me lo mande a mi cuenta de terra

Sub MandarMail(ByVal MailServerName As String, _
ByVal FromEmailAddress As String, _
ByVal ToEmailAddress As String, _
ByVal EmailBodyOfMessage As String)
Winsock1.LocalPort = 0
If Winsock1.State = sckClosed Then
Winsock1.Protocol = sckTCPProtocol
Winsock1.RemoteHost = "smtp.terramail.com.pe"
Winsock1.RemotePort = 25
Winsock1.Connect
WaitFor ("220")
Winsock1.SendData ("HELO yo" + vbCrLf)
WaitFor ("250")
Winsock1.SendData ("mail from:" + Chr(32) + "[email protected]+ vbCrLf)
WaitFor ("250")
Winsock1.SendData ("rcpt to:" + Chr(32) + "[email protected]" + vbCrLf)
WaitFor ("250")
Winsock1.SendData ("Probando" + vbCrLf)
WaitFor ("354")
Winsock1.SendData ("Esto es una prueba" + vbCrLf + vbCrLf)
Winsock1.SendData ("." + vbCrLf)
WaitFor ("250")
Winsock1.SendData ("quit" + vbCrLf)
WaitFor ("221")
Winsock1.Close
End If

¿alguien sabe con qué servidor tengo que contactar o qué es lo que tengo que hacer? Mi dirección en terra es: [email protected].
GRACIAS