Private Sub Кнопка2_Click(). Dim s As String, n, k As Integer, i, j As Integer, b, c As String

Dim s As String, n, k As Integer, i, j As Integer, b, c As String

Dim a() As Integer, y As Integer

s = Поле0.Value

s = Trim(s) & " "

i = 1: j = 1

Do While i <= Len(s) - 1 'Пока не достигнут конец строки

k = InStr(i, s, " ") 'Ищем позицию пробела,начиная с i

b = Mid(s, i, k - i) 'Выделяем слово

ReDim Preserve a(1 To j) 'Объявляем динамический массив с

a(j) = Val(b) 'сохранением предыдущих значений

j = j + 1

s = Mid(s, k + 1) 'Выделяем из строки оставшуюся часть

'после первого пробела

s = LTrim(s) ' Удаляем пробелы слева

Loop

y = максимум(a) 'Вызов функции максимум

Поле3.Value = Str(y) ' Вывод максимального значения

' в текстовое поле

End Sub

Private Function максимум(b() As Integer) As Integer

max = b(1)

For i = 1 To UBound(b)

If b(i) > max Then

max = b(i)

End If

Next i

максимум = max