In Cell C1, enter

=textinfix(A1,B1,5)


--
Kind regards,

Niek Otten

"DASmania Cool" <DASmania wrote in message
...
i want to create my own function with passing parameters. Here's the case :

Cell A1 = 5
Cell B1 = 0

and I want cell C1 = 00005

i have this function but i don't know how to insert in macro :

Function TextInfix(CurrChar As String, CharInfix As String, TextLong As
Integer) As String
Dim CharLong As Integer, TmpInfix$

CharLong = Len(CurrChar)

TmpInfix = String(TextLong - CharLong, CharInfix) & CurrChar

TextInfix = TmpInfix
End Function