i don't have a date only time. I have it sorted now using the folowing...
Dim MyString, LeftString
MyString = Text1
LeftString = Left(MyString, 2)
Dim MyVar
MyVar = Mid(Text1, 3, 6)
timedel = Text5
Label8 = LeftString + timedel & MyVar
i know it's not the best way but it works