Надо из цикла с параметром, переделать в цикс с предусловие помогите

[Uourin]

Hайти количество цифp в целом положительном числе.
вот код
x = InputBox("Введите число", "Окно ввода данных")
For i = 1 To 10
If x > 10 ^ (i - 1) And x < 10 ^ i Then
Label2.Caption = " число " & i & " цифры"
End If
Next
End Sub

[Niddin_hp]

Может так. В синтаксисе не уверен.

x = InputBox("Введите число", "Окно ввода данных")
i=1
while i<=10
If x > 10 ^ (i - 1) And x < 10 ^ i Then
Label2.Caption = " число " & i & " цифры"
End If
i=i+1
End while