problemas con codigo o SMTP virtual?

Saludos.

Estoy tratando de enviar un mensaje con System.Net.Mail pero no tengo exito.
Si utilizo el login de mi ISP, todo funciona bien. Pero si utilizo el
servidor virtual en mi PC, ni siquiera salen los mensajes. Alguna
sugerencia? Adjunto el codigo.

Private Sub send_message()

Try

With oMessage

.From = New MailAddress("carlos@localdomain.com")

.To.Add("carlos@solucionespr.com")

.Subject = "prueba"

.IsBodyHtml = True

.Body = "text"

End With

With oSMTP

'utilizar servidor local...

.Host = "127.0.0.1"

'utilizar servidor remoto...

'.Host = "smtpout.secureserver.net"

'.Credentials = New System.Net.NetworkCredential("carlos@solucionespr.com",
"c2135894")

End With

oSMTP.Send(oMessage)

TextBox1.Text = "message sent"

Catch ex As Exception

TextBox1.Text = "error: " & ex.Message

Debug.WriteLine(ex.Message)

End Try

End Sub