Private Sub Command1_Click()
Dim objFSO
Dim arrContent
Dim objRegExp

Dim elem
Dim i


Set objFSO = CreateObject("Scripting.FileSystemObject")

With objFSO.OpenTextFile("C:\system_statfile.txt")
    arrContent = Split(.ReadAll(), vbCrLf)
    .Close
End With
ReDim arr(UBound(arrContent), 4)
Set objRegExp = CreateObject("VBScript.RegExp")

objRegExp.Pattern = "^(.+) (\d+) (\d+) (\d+)(?:| (.+))$"
'

    For Each elem In arrContent
For j = 0 To UBound(arrContent)
        If objRegExp.Test(elem) Then
         With objRegExp.Execute(elem).Item(0).Submatches
            For i = 0 To .Count - 1
                        arr(j, i) = .Item(i)
                'WScript.Echo vbTab, i, ": [" & .Item(i) & "]"
            Next
            
        End With
    End If
Next
Stop
Next
End Sub

For j = 0 To UBound(arrContent)
  elem = arrContent(j)

For Each elem In arrContent
  j = j + 1

"/system/bin/mcd          "

"/system/bin/mcd"

"^(.*) +(\s) +(u:object_r:.+)$"

"/system/bin/sh mini      u:object:r_shell         "

"/system/bin/sh mini" "u:object:r_shell"

"^(.*?) +(u:object_r:.+) *$"

^(.+?) +(u:object_r:.*?) *$