Определить, сколько указанных букв в первом и последнем слове предложения

Dim strA, strB, strC As String
Dim intk, intl, inti As Integer
 
 
Private Sub Command1_Click()
strA = Text1.Text
strC = Text3.Text
intl = Len(strA)
intk = 0
For inti = 1 To intl
    strB = Mid(strA, inti, 1)
    If strB = strC Then intk = intk + 1
Next inti
Text2.Text = CStr(intk)
End Sub

Private Sub Command1_Click()
Dim st$, ch$, s, k1%, k2%, t%
st = Text1
ch = Text2
If Not Len(ch) = 1 Then MsgBox "ââåäèòå 1 áóêâó": Exit Sub
s = Split(st)
k1 = 0
k2 = 0
t = 0
Do
    t = InStr(t + 1, s(0), ch)
    If t > 0 Then k1 = k1 + 1
Loop Until t = 0
Do
    t = InStr(t + 1, s(UBound(s)), ch)
    If t > 0 Then k2 = k2 + 1
Loop Until t = 0
Text3 = "Êîëè÷åñòâî áóêâ " & ch & " â ïåðâîì ñëîâå - " & k1 & ", â ïîñëåäíåì - " & k2
End Sub

Option Explicit
Public i As Integer
Public j As Integer
Dim A() As Integer, n As Integer, m As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("Введите число строк", , 10)
ReDim A(1 To m) ' Размеры матрицы А -  m-строк, n-столбцов
For i = 1 To m
  A(i) = Int(Rnd * 21 - 10) 'Заполняем матрицу случайными числами
  Print A(i)
Next i
Call f(m)
End Sub
 
Public Sub f(m As Integer)
For i = 1 To m
  For j = i + 1 To m
    If A(i) = A(j) Then
      Print "ДА"
      Exit Sub
    End If
  Next j
Next i
Print "НЕТ"
End Sub

Option Explicit
Public i As Integer
Public j As Integer
Dim A(), A2() As Integer, n, Max, p As Integer, m As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("Введите число строк", , 10)
ReDim A(1 To m) ' Размеры матрицы
ReDim A2(1 To m)
For i = 1 To m
   A(i) = Int(Rnd * 211 - 25) 'Заполняем матрицу случайными числами
   Print A(i)
Next i
 
Max = A(1)
For i = 2 To m
  If A(i) > Max Then Max = A(i): p = i
Next i
 
For i = 2 To p - 1
   A2(i) = A(i)
Next i
 
For i = p To m
   A2(i) = A(i)
Next i
A2(1) = Max
Print
Print
For i = 1 To m
  Print A2(i)
Next i
End Sub

Option Explicit
Public i As Integer
Public j As Integer
Dim A(), A2() As Integer, n, Max, p As Integer, m As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("Введите число строк", , 5)
ReDim A(1 To m) ' Размеры матрицы
ReDim A2(1 To m)
For i = 1 To m
   A(i) = Int(Rnd * 211 - 25) 'Заполняем матрицу случайными числами
   Print A(i)
Next i
 Max = -100
For i = 1 To m
  If A(i) > Max Then Max = A(i): p = i
Next i
A2(1) = Max
 For i = 2 To p '- 1
   A2(i) = A(i - 1)
Next i
 For i = p + 1 To m
    A2(i) = A(i)
Next i
Print
Print
For i = 1 To m
  Print A2(i)
Next i
End Sub