Даны 2 натуральных числа M и N.Вывести старшую цифру дробной части и младшую цифру целой части числа M/N - VBA - Ответ 1127099

Sub Nutria() 'выводит цифры частного M и N, примыкающие к десятичному разделителю
Const M = 888, N = 30
'Const M = -715100000000#, N = 999999
Dim r As Variant: r = CDec(M) / CDec(N)
'Ограничения по модулю:
If Abs(M) > 7.151 * 10 ^ 11 Then MsgBox "M слишком велико.", vbExclamation: Exit Sub
If Abs(N) > 7.151 * 10 ^ 11 Then MsgBox "N слишком велико.", vbExclamation: Exit Sub
If N = 0 Then MsgBox "Деление на 0.", vbExclamation: Exit Sub 'в случае деления на 0
'Результат:
    MsgBox "Перед разделителем:" & vbTab & Abs(Fix(r) Mod 10) & _
    vbCr & "После разделителя:" & vbTab & Abs(Fix((r - Fix(r)) * 10)) & vbCr & _
    vbCr & "Исходная дробь: " & IIf(M / N < 0, "-", "") & _
    Abs(M) & "/" & Abs(N) & " (" & r & ")", vbInformation
'Fix просто отсекает дробную часть. Если заменить Fix на Int, то при r<0 будут ошибки!
End Sub