---

Sub пример_mid()
    Dim MyString, Word1, Word2, Word3
    MyString = "Демо функции Mid"
    
    Word1 = Mid(MyString, 1, 4)   ' результат "Демо"
    MsgBox Word1
    
    Word2 = Mid(MyString, 14, 3)  ' результат "Mid"
    MsgBox Word2
    
    Word3 = Mid(MyString, 6)      ' результат "функции Mid"
    MsgBox Word3
End Sub

2
Sub пример_len()
    Dim MyString
    Dim Длина
    MyString = "Демо функции Len"
    Длина = Len(MyString)
    MsgBox Длина
End Sub

3
Sub пример_instr()
    Dim Mystring
    Mystring = "Где Вася"
    номер = InStr(Mystring, "Вася")  ' результат 5
    MsgBox номер
End Sub

4
Sub пример_str_4()
    Dim Mystring, char
    Dim i, n
    Mystring = InputBox("Введите строку")
    n = 0
    For i = 1 To Len(Mystring)
        char = Mid(Mystring, i, 1)
        If char >= "0" And char <= "9" Then n = n + 1
    Next i
    MsgBox "Количество цифр в строке: " & n
End Sub

5
Sub ReverseString()
    Dim s As String, result As String
    Dim i As Integer
    s = InputBox("Введите строку:")
    result = ""
    For i = Len(s) To 1 Step -1
        result = result & Mid(s, i, 1)
    Next i
    MsgBox "Реверс строки: " & result
End Sub

6
Sub CountVowels()
    Dim s As String, char As String
    Dim i As Integer, n As Integer
    s = LCase(InputBox("Введите строку:"))
    n = 0
    For i = 1 To Len(s)
        char = Mid(s, i, 1)
        If InStr("аеёиоуыэюя", char) > 0 Then n = n + 1
    Next i
    MsgBox "Количество гласных: " & n
End Sub

7
Sub ReplaceSubstring()
    Dim s As String
    s = InputBox("Введите строку:")
    s = Replace(s, " ", "_")  ' заменяем пробелы на подчёркивания
    MsgBox "Результат: " & s
End Sub