Problema al mandar un correo

[Augusto1987]

Acá está el código, no consigo que mande el correo. ¿Me podrían decir cual es el error? Gracias.
Por las dudas, en "Servidor" estoy usando un servidor que sí funciona, ya que lo probé con otro código y tuve resultado.

Código:

Dim Recibido As Boolean
Dim Para As String, De As String, Asunto As String, Mensaje As String

Private Sub cmdSend_Click()
Para = txtPara.Text
De = txtDe.Text
Asunto = txtTema.Text
Mensaje = txtMsj.Text
Winsock1.Connect "Servidor", 25
Do While Winsock1.State <> sckConnected
DoEvents
Loop
sendMsg "HELO " & "Servidor"
sendMsg "MAIL FROM: <" & De & ">"
sendMsg "RCPT TO: <" & Para & ">"
sendMsg "DATA"
m$ = m$ + "From: <" + De + ">" + vbCrLf
m$ = m$ + "To: <" + Para + ">" + vbCrLf
m$ = m$ + "Subject: " + Asunto + vbCrLf
m$ = m$ + "Date: " + Format$(Now, "h:mm:ss") + vbCrLf
m$ = m$ + "MIME-Version: 1.0" + vbCrLf
m$ = m$ + "Content-Type: text/plain; charset=us-ascii" + vbCrLf + vbCrLf
m$ = m$ + Mensaje + vbCrLf + vbCrLf + "." + vbCrLf
sendMsg m$ + "QUIT"
Winsock1.Close

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Recibido = True
End Sub

Sub sendMsg(m$)
Winsock1.SendData m$ + vbCrLf
Recibido = False
Do Until Recibido
DoEvents
Loop
End Sub