Problemmer med at afvikle kode skrevet i VB

Jeg har noget kode jeg skal lave nogle små rettelser i (Har ikke de stor overbli over koden), Men jeg får en runtime fejl når jeg starter det.

Run-time error:'-2147220960(80040220)':
"Send vha."-konfigurationsværdien er ugyldig.

Her er koden hvor det går galt:

Private Sub errorNotify(ErrCode As String, Errmessage As String, module As String, Optional forhandler As String)
    'Rutine til udsendelse af email ved fejl i programmet.
    'Der udsendes fejlbeskrivelse
    Dim Body As String
    Body = "Modul: " & module & "(" & forhandler & ")" & vbCrLf & _
          "Fejlkode: " & ErrCode & vbCrLf & _
          "Besked: " & Errmessage
    Dim MyMail As CDO.Message
    Set MyMail = New CDO.Message
    MyMail.From = "afsender@vb.dk"
    MyMail.To = "vb@vb.dk"
    MyMail.Subject = "Fejl"
    MyMail.TextBody = Body
    MyMail.Send ' Her siger den at der er fejl
    Set MyMail = Nothing