Изменить переменную в ходе работы - VB

Формулировка задачи:

Вводятся 3 числа, если они вводятся в порядке возрастания, то всё ок, а если нет,то изменить значения переменных(не переставить их местами, а изменить)

Option Explicit
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("Введите число")
b = InputBox("Введите число")
c = InputBox("Введите число")
If a < b < c Then
Print a; b; c
Else
 
End If
End Sub

Решение задачи: «Изменить переменную в ходе работы»

textual
                            Листинг программы 
                        

                            Option Explicit
Private Sub Command1_Click()
   Dim a As Integer, b As Integer, c As Integer, d As Integer
   a = Val(InputBox("Введите число", , 8))
   b = Val(InputBox("Введите число", , 6))
   c = Val(InputBox("Введите число", , 4))
m: If a <= b And b <= c Then
        Print a; b; c
   Else
        If a > b Then d = a: a = b: b = d
        If b > c Then d = b: b = c: c = d
      GoTo m
   End If
End Sub
                        