type mismatch в макросе

Case 15
                If Len(CStr(ThisCell)) >= 3 Then
                    res = Send("g.sysoev@q-pol.ru", Text + CStr(Now()) + ". Георгий, привет. У тебя изменения в графике. " + CStr(ThisCell) + " ", "Изменение в графике ресурсов")
                ElseIf CStr(ThisCell) = "об" Then
                    res = Send("g.sysoev@q-pol.ru", Text + CStr(Now()) + ". Георгий, привет. У тебя изменения в графике. Обучение. " + " ", "Изменение в графике ресурсов")
                ElseIf CStr(ThisCell) = "" Then
                    res = Send("g.sysoev@q-pol.ru", Text + CStr(Now()) + ". Георгий, привет. В графике отмена. " + " ", "Изменение в графике ресурсов")
                End If

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim r As Range, a1, a2, t$, txt$, email$
    Set r = Intersect(Target, Range("EK3:OE22"))
    If r Is Nothing Then Exit Sub
    a1 = Array("Сысоев Георгий", "Хохлачев Алексей") 'и т.д.
    a2 = Array("g.sysoev", "a.hohlachev") 'и т.д.
   
    For Each r In r
       t = r.Text: email = a2(r.Row - 3)
       txt = "Отработка - " & Now & ". " & a1(r.Row - 3) & ", привет. "
       If Len(t) > 2 Then
          Send email & "@q-pol.ru", txt & "У тебя изменения в графике." & t & " ", "Изменение в графике ресурсов"
       ElseIf t = "об" Then
          Send email & "@q-pol.ru", txt & "У тебя изменения в графике. Обучение." + " ", "Изменение в графике ресурсов"
       ElseIf Len(t) = 0 Then
          Send email & "@q-pol.ru", txt & "В графике отмена." + " ", "Изменение в графике ресурсов"
       End If
    Next
End Sub
Function Send(ByVal Emails$, ByVal MailText$, Optional ByVal Subject$ = "")  ' CDO function send message
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim Flds As Variant
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    iConf.Load -1
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "s.nt@q-pol.ru"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "12314"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Update
    End With
    With iMsg
        Set .Configuration = iConf
        .To = Emails$:
        .From = """Informer NT"" s.nt@q-pol.ru"
        .Subject = Subject$:
        .TextBody = MailText$:
        .BodyPart.Charset = "windows-1251"
        .Send
    End With
End Function