Добрый день! Попросили помочь решить задание по VBA, но не могу понять в чем ошибка. Прошу помочь Есть код. Переменной а назначаем значение True, т.е. 1, но результат выдается "-1". Не понимаю в чем ошибка
Код
Sub r()Dim a As Boolean, b As Integer
a = True
b = CInt(a)
MsgBox (b)
End Sub