Dim mydate As Date
Dim t As String
Dim y, m, d, h, n, s
t = "20081201220000"
y = Mid(t, 1, 4)
m = Mid(t, 5, 2)
d = Mid(t, 7, 2)
h = Mid(t, 9, 2)
n = Mid(t, 11, 2)
s = Mid(t, 13, 2)
mydate = CDate(y & "-" & m & "-" & d & " " & h & ":" & n & ":" & s)
MsgBox mydate