Спо информатике языком vba.дано одно вещественное число (double). определить первую цифру в дробной части заданного положительного вещественного числа. (3.67 = 6)

Sub Zadanie()
    d = CDbl(InputBox("d ="))
    MsgBox round(d * 10) mod 10
End Sub

Call Zadanie()