Sub test()
Dim r As Range, mItem As Object, i As Integer
With CreateObject("VBScript.RegExp")
For Each r In Range("a1",Range("a" & Rows.Count).End(xlUp))
.Pattern = "(0?[1-9]|[1-2][0-9]|3[0-1])(0?[1-9]|1[1-2])0[0-9]"
.Global = True
If .test(r.Value) Then
Set mItem = .execute(r.Value)
For i = 0 To mItem.Count -1
r.Offset(, i +1).Value = mItem.item(i)
Next
End If
Next
End With
End Sub