error al enviar correo

[ncq]

Hola, necesito envira un correo, pero al final del try me sale "erro al enviar correo" el usuario y la contraseña estan bien. este es el codigo, muchas gracias. EL CODIGO ES PARA VB.NET

Public Class Enviar_Correo
Public Sub Enviar_Mensaje(ByVal strFrom As String, ByVal strTo As String, _
ByVal strSubject As String, ByVal strMessage As String, _
ByVal fileList() As String)
Try
Dim MailMsg As New MailMessage(New MailAddress(strFrom.Trim()), New MailAddress(strTo))

MailMsg.Subject = strSubject.Trim()
MailMsg.Body = strMessage.Trim() & vbCrLf
MailMsg.Priority = MailPriority.High
MailMsg.IsBodyHtml = True
MsgBox("1.1")
' ciclo por si vienen archivos adjuntos
For Each strfile As String In fileList
If Not strfile = "" Then
Dim MsgAttach As New Attachment(strfile)
MailMsg.Attachments.Add(MsgAttach)
End If
Next

' crear la variable de "conexion"
Dim SmtpMail As New SmtpClient

' datos login

Dim theCredential As New Net.NetworkCredential("Infosig_sus", "xxx")'el usuario y la contaseña
SmtpMail.Credentials = theCredential
'se indica el host
SmtpMail.Host = "" 'aqui coloco la direccion ip del serv de correo
SmtpMail.Send(MailMsg)

Catch ex As Exception
' por si hay un error
MsgBoxStyle.Exclamation)
MsgBox(ex.Message) ' aquí me sale el error
End Try

End Sub

End Class

MUCHAS GRACIAS