Split

Split( 検索を行う文字列 [, 区分対象の文字 , 区分数 , モード ] )
モード：vbBinaryCompare(0)→バイナリモード（省略時）、vbTextCompare(1)→テキストモード

Option Explicit

Dim strdisp
Dim val
Dim strsp
Dim strhi
Dim strco

strsp = "acha porute piipo"
strdisp = Split( strsp )
For Each val In strdisp
	WScript.Echo ( val )
Next
                        ' acha
                        ' porute
                        ' piipo

strhi = "acha-porute-piipo"
strdisp = Split( strhi , "-" )
For Each val In strdisp
	WScript.Echo ( val )
Next
                        ' acha
                        ' porute
                        ' piipo

strco = "acha,porute,piipo"
strdisp = Split( strco, "," )
For Each val In strdisp
	WScript.Echo ( val )
Next
                        ' acha
                        ' porute
                        ' piipo

' 区分文字を省略.
strhi = "acha-porute-piipo"
strdisp = Split( strhi )
For Each val In strdisp
	WScript.Echo ( val )
Next
                        ' acha-porute-piipo

' 区分文字を変えてみる.
strhi = "acha-porute-piipo"
strdisp = Split( strhi , "," )
For Each val In strdisp
	WScript.Echo ( val )
Next
                        ' acha-porute-piipo

置換文字の引数を省略すると半角スペースが区分文字となる。