Задание написать функцию,немогу вызвать - VB

Формулировка задачи:

Всем добрый день! Делаю вот курсовую по инфе и не могу грамотно написать и вызвать функцию, простите что лезу с идиоцким вопросом вот задание: написать функцию для определения количества цифрр натурального числа. Используя оную определить количество циферъ каждого элемента одномерного массива из натуральных чисел вот мой код:

Function kkk() As Integer
Do
kkk = 1
a(i) = a(i) \ 10
kkk = kkk + 1
Loop Until a(i) < 1
 
End Function

Private Sub Command1_Click()
Dim a() As Integer, k, i, N As Integer
 
N = InputBox("количество элементов")
 
For i = 1 To N
a(i) = InputBox("введите элемент")
List1.List(i - 1) = a(i)
list2.AddItem(i-1) (kkk)     <------- интересует этот этап, как вызвать функцию?
Next i
 
End Sub

я хотел бы что бы в одном списке выводились числа массива, а в списке справа выводилось количество чисел. пожалуйста, объясните как правильно написать, заранее спасибо!

Решение задачи: «Задание написать функцию,немогу вызвать»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim a() As Integer, k, i, n As Integer
n = InputBox("Кол-во элементов:")
ReDim a(1 To n)
For i = 1 To n
    a(i) = InputBox("Введите " & i & " элемент:")
    List1.AddItem a(i)
    List2.AddItem kkk(a(i))
Next
End Sub
                        