Public Sub DayYearTime(ByVal str As String, _
    ByRef day As Integer, ByRef year As Integer, ByRef tim As Date)
 
    Dim tw As Integer: tw = InStr(2, str, "20")
    year = CInt(Mid(str, tw, 4))
 
    Dim days As String: days = Mid$(str, 1, tw - 1)
    day = CInt(Trim(days))
 
    Dim tms As String: tms = Trim(Mid(str, tw + 4))
    tms = Mid(tms, 1, 2) & ":" & Mid(tms, 3, 2) & ":" & Mid(tms, 5, 2)
    If Len(tms) = 6 Then tms = tms & "00"
    tim = CDate(tms)
End Sub