выбор текста из строки

[maksim_serg]

подскажите как из строки
a = "Накладная №131 от 02.08.2009г."
получить макросом два значения:
b = "131"
c = "02.08.2009г."
вся проблема в том что(для меня покрайне мере), что может быть и так:
Накладная 131 от 02.08.2009' или так
Накладная № 131 от 02.08.2009' или вот так
Накладная №131 от 02.08.2009г.' еще так
Накладная №131 от 2.08.2009' или даже так
накл. №131 от 2.08.2009' и т.п....

[EducatedFool]

Только не спрашивайте, как это работает

Sub test()
    a = "Накладная №131 от 02.08.2009г."
    a = "накл. №131 от 2.08.2009"
    a = "Накладная № 131 от 02.08.2009"

    arr = Split(a, " от ")
    b = Replace(Split(arr(0), " ")(UBound(Split(arr(0), " "))), "№", "")
    c = CDate(Replace(Split(arr(1), " ")(0), "г.", ""))
    Debug.Print b, c
End Sub

[maksim_serg]

будем надеяться что никто не забудет поставить "от"...
спасибо за ответ