VBA вытащить информацию из текста после определенного слова

[nyqpblcTuk]

Привет друзья!

Просьба подсказать по vba как можно из ячейки вытащить информацию после искомого слова.

Например
Range("A1").Value = "Привет друг мне сегодня 20 лет, Приходи сегодня ко мне, возьми торт который я заказал, он весит 2 кг."

Так что на ум первое пришло...

Как мне составить функцию.
Чтобы макрос нашел слово "сегодня" и вытащил после слова значение c типом Long. (именно лонг, т.к. в рабочей среде там может быть большое значение)

Уже что-то два дня ковыряюсь.
А найти как это сделать не могу...

А то я уже и через сплит пытался и через поиск...

Пока что знаний не хватает это сделать.

P.S. просьба дать сцыль на хороший самоучитель по VBA.
Т.К. много еще приходится постигать по VBA, а информацию черпаю как блоха по .... из всевозможных источников.

[kvitaliy]

Сообщение от nyqpblcTuk

я уже и через сплит пытался

Можно и так:

Dim a() As String
s$ = "Привет друг мне сегодня 20 лет, Приходи сегодня ко мне, возьми торт который я заказал, он весит 2 кг."
a = Split(s$)
For i = 0 To UBound(a)
' Пииск возраста
 If a(i) = "сегодня" Then
   If Val(a(i + 1)) <> 0 Then
      MsgBox "Возраст = " & a(i + 1) & " лет"
   End If
 End If
 
 ' Поиск веса
  If a(i) = "весит" Then
   If Val(a(i + 1)) <> 0 Then
      MsgBox "Вес торта = " & a(i + 1) & " кг."
   End If
 End If
 
Next

[Aleksandr H.]

как вариант Regex вытянуть "(сегодня \d+ лет)" и с него уже "\d+"