String1 ="ABC DEF GHI JKL MNO PQR STU VWX YZ"
Result = Split(String1, " ")
For Each str in Result
  MsgBox Str
Next
 
String2 = "123|456|789|101112|131415|161718"
Result2 = Split(String2, "|")
For Each nr in Result2
  MsgBox nr
Next
 
On Error Resume Next
For i = LBound(Result) To UBound(Result)
  WScript.Echo Result(i) & " " & Result2(i)
Next
On Error Goto 0