Как разбить дату на цифры, а слова на буквы?

Question

[Виктор Будко]

Нужен экспорт из БД в бланк
Для этого нужно разбить дату формата 21.12.2014
Split делит только по разделителям, на выходе 21 12 2014
Join дает 21122014 как разделить до получения каждого значения?

numb(0) = 2
numb (3) = 2
numb(7) = 4

Answer 1

[Виктор Будко]

Отвечаю сам на свой вопрос, возможно кому пригодится.

Private Sub Кнопка()
Dim sStr
Dim Dat
Dim Datall
sStr = Split(Me!ДатаРождения, ".")
Dat = Array(sStr(0), sStr(1), sStr(2))
Datall = Join(Dat, "")
Dim i As Long
Dim numb() As String
ReDim numb(Len(Datall) - 1)
For i = 0 To Len(Datall) - 1
numb(i) = Mid$(Datall, i + 1, 1)
MsgBox numb(i)
Next i
End Sub