Solved: Extract number of digits/characters of a variable

[rory]

You can use the String function:
[VBA]Public Function Calc(ByVal accountNo As Long)

Dim Len_accountNo As Integer
Len_accountNo = Len(CStr(accountNo))

Calc = String(Len_accountNo, "A")


End Function[/VBA]

HTH
Rory