Вопрос о выдирании из примечания Даты

[EXpertb]

Подскажите как с помощью VBA в Excel проделать следующее.
Есть ячейка к которой прикреплено примечание, с текстом (№56 от 15.12.2010г.).
Как из текста примечания выдернуть дату для расчетов?

[3BEPOBOY]

если все примечания в таком формате, я бы определил № буквы "т" в строке, и от "т+2" скопировал 10 следующих символов из строки или 12 если нужен "г."

[EducatedFool]

Примерно так:

Function НомерИзПримечания(ByRef cell As Range) As Long
    Application.Volatile True
    txt = cell.NoteText
    txt = Split(txt, "№")(1)
    txt = Split(txt, " ")(0)
    НомерИзПримечания = Val(txt)
End Function

Function ДатаИзПримечания(ByRef cell As Range) As Date
    Application.Volatile True
    txt = cell.NoteText
    txt = Split(txt, " от ")(1)
    txt = Left(txt, 10)
    ДатаИзПримечания = CDate(txt)
End Function

В ячейках используются формулы:

  Ячейка: B2      Формула  (стиль A1):   =НомерИзПримечания(A2)
                  Формула  (стиль R1C1): =НомерИзПримечания(RC[-1])

  Ячейка: C2      Формула  (стиль A1):   =ДатаИзПримечания(A2)
                  Формула  (стиль R1C1): =ДатаИзПримечания(RC[-2])

Пример в файле:

[EXpertb]

Спасибо! Вот что значит знатоки своего дела!