Convert Text :> Time... Using VBA

Please try
Formula
=SUMPRODUCT((TEXT(MID(0&A2,FIND({"mo","w","d","h","m ","s"},"00"&A2&" mowdhsm ")-3,2),"0;;0;\0"))*{30,7,1,1,1,1}/{1,1,1,24,1440,86400})

or UDF =gTime(A2)

Function gTime(t) As Double

    gTime = Evaluate(Replace("SUMPRODUCT((TEXT(MID(0&#,FIND({""mo"",""w"",""d"",""h"",""m "",""s""},""00""&#&"" mowdhsm "")-3,2),""0;;0;\0""))*{30,7,1,1,1,1}/{1,1,1,24,1440,86400})", "#", t.Address))

End Function