Convert Text :> Time... Using VBA

Code for UDF DayAndTime. Format cells for [hh]:mm:ss.

Function DayAndTime(IP As Range)
Dim M
Dim T As Integer, d_ays As Integer, hrs As Integer, mns As Integer, scs As Integer

M = Split(IP.Value, " ")
For T = 0 To UBound(M)
    If InStr(1, M(T), "mos") > 0 Then
    d_ays = 30 * (Replace(M(T), "mos", ""))
    ElseIf InStr(1, M(T), "w") > 0 Then
    d_ays = d_ays + 7 * (Replace(M(T), "w", ""))
    ElseIf InStr(1, M(T), "d") > 0 Then
    d_ays = d_ays + (Replace(M(T), "d", ""))
    ElseIf InStr(1, M(T), "h") > 0 Then
    hrs = 0 + (Replace(M(T), "h", ""))
    ElseIf InStr(1, M(T), "m") > 0 Then
    mns = 0 + (Replace(M(T), "m", ""))
    ElseIf InStr(1, M(T), "s") > 0 Then
    scs = 0 + (Replace(M(T), "s", ""))
    End If

Next T
    
    DayAndTime = TimeSerial((d_ays * 24) + hrs, mns, scs)
    
End Function