Convert Formula to function in vba

[861171314]

Hi Dears,
i Have a formula in excel and i want to convert it as vba function
it is my formula :
=LEFT(B13;FIND("-";B13;1)-1)
Can Anybody Help me ?
ThankYou

 

[Deepak]

Function Split1(orng as range, optional del as string="-")as string
Split1 = split(orng.value, del)(0)
End function

 

[861171314]

thank you very much
i have two other formula to convert to function
can you help me how can i do this
=MID(B13;FIND("-";B13;1)+2;FIND("-";B13;FIND("-";B13;1)+1)-FIND("-";B13;1)-2)
and
=RIGHT(B13;LEN(B13)-FIND("&";SUBSTITUTE(B13;"-";"&";LEN(B13)-LEN(SUBSTITUTE(B13;"-";""))))-1)

 

[Deepak]

Would u pls share the sample data so that we would offer better ways.