Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру

VB.

Dim n As Integer       
n = InputBox("Введите n")       
Dim summ As Integer       
Dim i As Integer
        For i = 1 To Len(n)
            summ += CInt(Mid(CStr(n), i, 1))
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
        Next       
MsgBox("количество цифр числа n=" & Len(n) & ", сумма его цифр равна " & summ & " и первая цифра -" & CInt(Mid(CStr(n), 1, 1)))