Create New Function For Convert Number To Time

[861171314]

Hello Dear
I want To Create New Function For Convert Number To Time & I Need Your Help
I Upload My File Here
Please Check My File
My Formula is =TEXT(TEXT(D4;"000000");"00\:00\:00")+0
This Formula Convert Number To Time
For Example This Formula Convert "49" To "00:00:49" As Time
I Want To Create Function In Vba For This Formula
Please Help And Complete N2T Function For Me
Thanks

 

[vletm]

861171314
... add enough zeros ...
one possible like this

 

[p45cal]

Function N2T(NO) As Variant
N2T = Evaluate("=TEXT(" & NO & ",""00\:00\:00"")+0")
End Function

Format the cell as [h]:mm:ss

 

[861171314]

Thank You Very Much