Как преобразовать строку в дату
я пытаюсь преобразовать строку в дату
a = Datumo: 16.09.2012.
d = Mid(a, 9, 2) ' 16 - should be the day
m = Mid(a, 12, 2) ' 09 - month
y = Mid(a, 15, 4) ' 2012 - year
Dim dt As Date
dt = DateValue(d, m, y) ' Error line
dt = DateAdd("d", 1, dt) ' should be 17.09.2012.
Как я могу это сделать, пожалуйста?