Определить количество цифр в натуральном числе n в бейсик

DIM n, m
INPUT " n = ", n
PRINT
m = 0
WHILE n > 1
n = n / 10
m = m + 1
WEND
PRINT " number of digits = ", m
PRINT
DO
LOOP WHILE INKEY$ = ""