Sub SortNumbers Dim num1 As Integer
Dim num2 As Integer

num1 = InputBox$"Введитепервоечисло:"$ num2 = InputBox$"Введитевтороечисло:"$
If num1 <= num2 Then
MsgBox "Числа в порядке возрастания: " & num1 & ", " & num2
Else
MsgBox "Числа в порядке возрастания: " & num2 & ", " & num1
End If

End Sub