Функция VBA MID возвращает указанное количество символов из строки символов, начиная с указанного номера символа.
Mid(текст, начало)
Или
Mid(текст, начало, количество_символов)
Получить разные части текста из строки:
Sub MidExample() MsgBox Mid("www.moonexcel.com.ua", 1, 1) 'Возвращает: w MsgBox Mid("www.moonexcel.com.ua", 1, 3) 'Возвращает: www MsgBox Mid("www.moonexcel.com.ua", 1, 13) 'Возвращает: www.moonexcel MsgBox Mid("www.moonexcel.com.ua", 1, 30) 'Возвращает: www.moonexcel.com.ua MsgBox Mid("www.moonexcel.com.ua", 5, 9) 'Возвращает: moonexcel MsgBox Mid("www.moonexcel.com.ua", 5, 4) 'Возвращает: moon MsgBox Mid("www.moonexcel.com.ua", 9, 5) 'Возвращает: excel MsgBox Mid("www.moonexcel.com.ua", 16, 3) 'Возвращает: com MsgBox Mid("www.moonexcel.com.ua", 5, 50) 'Возвращает: moonexcel.com.ua MsgBox Mid("www.moonexcel.com.ua", 5) 'Возвращает: moonexcel.com.ua End Sub