thanks Rory,

I am not able use Repeat function;
please have a look at me code..

[VBA]Public Function Calc(ByVal accountNo As Long)

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

Calc = Rept("A", Len_accountNo)


End Function


[/VBA]