В данном примере функция Mid используется для извлечения указанного числа символов из строки.
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Пример функции Mid" ' Инициализирует строку.
FirstWord = Mid(MyString, 1, 6) ' Возвращает "Пример".
LastWord = Mid(MyString, 16, 3) ' Возвращает "Mid".
MidWords = Mid(MyString, 8) ' Возвращает "функции Mid". |