Sub F()
    With CreateObject("VBScript.RegExp")
        .Pattern = "(^|\s)с\s"
        MsgBox .Replace("доска", " +с ")
        MsgBox .Replace("не с ним", " +с ")
        MsgBox .Replace("с ним", " +с ")
    End With
End Sub

=СЧЁТЕСЛИ(ДВССЫЛ("E"&ПОИСКПОЗ(AF31;C:C;0)&":M"&ПОИСКПОЗ(AF31;C:C;0));5)

Function GetDate(cell)
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d{2}\.\d{2}\.\d{4}": GetDate = .Execute(cell)(0)
    End With
End Function