extract a string from variable text

How about this Regex

Function jec(cell As String) As String
   With CreateObject("vbscript.regexp")
     .Global = True
     .ignorecase = True
     .Pattern = "(T|\s)(\d\d+)(\.\d+\.\d|\.\d+)?"
    jec = LTrim(.Execute(cell)(0))
 End With
End Function