Need to translate into VBA

[insanity]

Is there a way to translate the following cells and their formulas into VBA code? What I am trying to do is take the Julian date(the first 7 is the year and 037 the day) and time "7037/2310" and translate it into "06/2310", which would be the 6th of Feb at 23:10. Thanks for any help you can give.

Julian Date/Time in cell E2 "7037/2310"

Cell F2 "7037" (with formula) =LEFT(E2,4)

Cell G2 contains "2/6/2007" (with formula) =DATE(IF(0+(LEFT(F2,1))<30,2000,1900)+LEFT(F2,1),1,RIGHT(F2,3))

Cell H2 "06" (formula) =DAY(G2)

Cell I2 "2310" (formula) =RIGHT(E2,4)

Cell J2 "6/2310" =CONCATENATE($H2,"/",$I2)

 

[Norie]

Translate in what way?

x = Split(Range("E2"), "/")

MyDateTime = DateSerial(Left(x(0), 1), 0, Mid(x(0), 2)) + TimeSerial(Left(x(1), 2), Mid(x(1), 3), 0)

MsgBox MyDateTime