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 SubPrivate Sub Кнопка()
Dim sStr() As String
sStr = Split(Me!Поле)
Dim avArr() As String
Dim i As Integer
For i = 3 To UBound(sStr) 'Где три начало отсчета'
If i = 3 Then
ReDim avArr(0)
Else
ReDim Preserve avArr(UBound(avArr) + 1)
End If
avArr(UBound(avArr)) = sStr(i)
Next i
MsgBox Join(avArr, " ")
End Sub