Сравнение 2 чисел - VB

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

написать программу, которая сравнивает 2 числа, введенных с клавиатуры. Программа должна указать какое число больше, или, если числа равны, вывести соответствующее сообщение

Решение задачи: «Сравнение 2 чисел»

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

                            Private Sub Command1_Click()
    Dim First As Integer
    First = InputBox("Введите первое число", "", "0")
    Dim Second As Integer
    Second = InputBox("Введите второе число", "", "0")
    If First > Second Then
        MsgBox "Первое число больше второго на " & First - Second, vbInformation
    End If
    If First < Second Then
        MsgBox "Второе число больше первого на " & Second - First, vbInformation
    End If
    If First = Second Then
        MsgBox "Числа равны", vbInformation
    End If
End Sub
                        