Составить блок схему и реализовать на Visual Basic

Option Explicit
Private Sub Command1_Click()
'https://www.cyberforum.ru/visual-basic/thread1763151.html
Dim s$(), i&, j&, tmp
s = Split(InputBox("Введите  4 числа, разделённых пробелами", , "57 212 7 31"))
ReDim Arr(0 To UBound(s))
For i = 0 To UBound(s): Arr(i) = CDbl(s(i)): Next
'Сортировка пузырьком
For i = 0 To UBound(s)
  For j = 0 To UBound(s) - 1 - i
    If Arr(j) < Arr(j + 1) Then
      tmp = Arr(j)
      Arr(j) = Arr(j + 1)
      Arr(j + 1) = tmp
    End If
  Next j
Next i
MsgBox Join(Arr)
End Sub

Option Explicit
Private Sub Command1_Click()
'https://www.cyberforum.ru/visual-basic/thread1763151.html
Dim x As Integer, y As Integer, z As Integer, k As Integer, max As Integer
x = InputBox("Введите x")
y = InputBox("Введите y")
z = InputBox("Введите z")
k = InputBox("Введите k")
If (x > y) And x > z And x > k Then max = x
 If (y > x) And y > z And y > k Then max = y
  If (z > x) And z > y And z > k Then max = z
   If (k > x) And k > y And k > z Then max = k
     MsgBox ("Максимум = " & max)
'Elself x = y = z = k Then
'Print "Нет!"
'Else
' MsgBox ("Не будь оболтусом! Топай, учись!")
End Sub

Dim x As Integer, y As Integer, z As Integer, k As Integer, max As Integer
x = InputBox("Введите x")
y = InputBox("Введите y")
z = InputBox("Введите z")
k = InputBox("Введите k")
If (x > y) And x > z And x > k Then max = x
 If (y > x) And y > z And y > k Then max = y
  If (z > x) And z > y And z > k Then max = z
   If (k > x) And k > y And k > z Then max = k
    MsgBox ("Максимум = " & max)
   If max = 0 Then 'x = y = z = k
Text1.Text = Text1.Text & "Нет! Не будь оболтусом! Топай, учись!" & vbTab
 'ElseIf x = vbKeyShift Then         'Run-time error '13'
 'Text2.Text = Text2.Text & "Топай на работу!" & vbTab
End If
End Sub