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