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]