Dim str As String, day_str As String, day As Integer, tim As Date
str = "105519 2" 'Beispiel
 
tim = CDate(Mid$(str, 1, 2) & ":" & Mid$(str, 3, 2) & ":00")
day_str = Trim(Mid$(str, 5, 2))
day = cint(day_str)
if len(day_str) = 1 then day_str = "0" & day_str