Написать программу определяющую равны ли между собой два введенных числа( vba)

Sub xyz()
    a = Val(InputBox("a="))
    b = Val(InputBox("b="))
    If a = b Then
        MsgBox "Числа равны"
    Else
        MsgBox "Числа не равны"
    End If
End Sub