Выделить из строки текст от первого пробела до последней запятой - VBA

Формулировка задачи:

Всем привет, Возник вопрос, ни как не могу решить. Сколько искал ни чего дельного не нашел. Есть строка к примеру: --- Титан. Краснодар, 000000029 Мне нужно сделать так, что бы на выходе у меня осталось: Титан. Краснодар Т.е. нужно, что бы код понимал, что я хочу убрать с начала строки все символы до пробела (пробел включительно) и с конца строки все символы до запятой (запятая включительно). Почему именно так, потому что, тот текст, что мне нужен на исходе может быть разной длинны. Ребят, направьте на путь верный

Решение задачи: «Выделить из строки текст от первого пробела до последней запятой»

textual
                            Листинг программы 
                        

                            s = "--- Титан. Краснодар, 000000029"
 
tail = instr(s, ",")    'позиция 1-й запятой в строке s
head = instr(s, " ")    'позиция 1-го пробела в строке s
 
msgbox "Обрезаемая строка: " & s & vbCr & vbCr & _
       "Позиция 1-го пробела: " & head & vbCr & _
       "Позиция 1-й запятой: " & tail
 
inputbox s, "Обрезка от пробела до запятой", mid (s, head + 1, tail - head - 1) 
'в окне inputbox’а — усечённая s
                        