Sub SplitString()
Dim RegEx As VBScript_RegExp_55.RegExp
Dim mc As VBScript_RegExp_55.MatchCollection
Dim strExpression As String
Dim strPattern As String
Dim arOut(3) As String, arOutNumber(2) As String
Dim iItem As Integer, iOut As Integer, iOutNumber As Integer
strExpression = "XX 123456 Text 01012015.pdf"
strPattern = "(\w+) (([0-9][0-9])([0-9][0-9])([0-9][0-9])) (.*) (\w+.pdf)"
Set RegEx = New VBScript_RegExp_55.RegExp
RegEx.IgnoreCase = True
RegEx.Pattern = strPattern
If RegEx.Test(strExpression) Then
Set mc = RegEx.Execute(strExpression)
With mc.Item(0)
For iItem = 0 To 6
If iItem >= 2 And iItem <= 4 Then
arOutNumber(iOutNumber) = .SubMatches(iItem)
iOutNumber = iOutNumber + 1
Else
arOut(iOut) = .SubMatches(iItem)
iOut = iOut + 1
End If
Next
End With
End If
End Sub