Outlook body to Excel

Hej kan en her hjælpe mig med at finde en fejl i min vba kode. Kan jeg bare sætte hele koden ind her so i kan se den her er den del som ikke virker.

Private Sub PersonalInboxItems_ItemAdd(ByVal Item As Object)

  ' Subject to scan starts with this
  Const SubToCheck = "WEATHER REPORT FROM: Vejr rapport Holstebro ny"
 
  If Left(Item.Subject, Len(SubToCheck)) = SubToCheck Then
      Me.CaptureWeatherInfo (Item.Body)
      MsgBox "Weather update complete for " & Item.Subject
  End If

End Sub

Der er fejl i linjen Me.CaptureWeatherInfo (Item.Body) men jeg ved ikke hvad fejlen er så jeg håber at en kan hjælpe mig.