hi everybody,
Alternatively you can try:

Sub foo_r()
Dim re As Object, mc As Object
Const sPat As String = "^[^\s]+|[^\s]+.+$"
Dim InputData(0 To 3) As String
Dim i As Long
Dim Results() As String

InputData(0) = "Item2 red notebooks"
InputData(1) = "Item2 notebooks"
InputData(2) = "I3 pens"
InputData(3) = "itm4 keyboards"

Set re = CreateObject("vbscript.regexp")
re.Pattern = sPat
re.Global = True

For i = 0 To UBound(InputData)
Set mc = re.Execute(InputData(i))
If mc.Count = 2 Then
ReDim Preserve Results(0 To 1, 0 To i)
Results(0, i) = mc(0)
Results(1, i) = mc(1)
End If
Next i

End Sub

regards
r