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

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

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

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

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

12   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ