'Length of values in column

I would like to know if the values in column C (unknown rows) contain 6 digits.
If not, add one or more 0 in column B to obtain 6 digits.

Here an image to better understand:

Dim nbchar As Integer
nbchar = Len(Columns("C"))

If IsNumeric(Columns("C") And (nbchar<6) Then
    Columns("B").Value = 0

excel vba

Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Solution	Source