Не могли бы вы мне с информатикой
нужно написать код созданный в программе "vba"
: последовательно вводятся числа до тех пор, пока во введенной совокупности не окажется три нуля. вывести количество введенных чисел

Sub Prime()

   Dim k As Integer, x As Double

   k = 0

   Do

       x = CDbl(InputBox("Введи число, ноль завершит работу"))

       If x = 0 Then Exit Do

       k = k + 1

   Loop

   MsgBox "Введено чисел: " & CStr(k)

End Sub