Перевести код с условием и вводом из Паскаль в VBA

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

var m,n:integer;
begin
writeln('Введите 2 целых числа:');
readln(m,n);
if m mod n=0 then write(m div n)
else write('M на N нацело не делится');
readln
end.

Решение задачи: «Перевести код с условием и вводом из Паскаль в VBA»

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

                            Sub YOHOHO()
    n = CInt(InputBox("Введите число n"))
    m = CInt(InputBox("Введите число m"))
    If (m Mod n = 0) Then
        MsgBox (m \ n)
    Else
        MsgBox (m & " на " & n & " нацело не делится")
    End If
End Sub
                        