This works but something bothers me about using the RIGHT(RIGHT and I think there must be a simplier way.

S_ToT = "1515"

m.Result = Ttoc(Ctot(Transform(Dtos(Date()), '@R 9999-99-99') + 'T' + LEFT(RIGHT(STR(S_ToT),4),2) + ':' + RIGHT(RIGHT(STR(S_ToT),4),2)), 2)

m.Result = "03:15:00 PM"