Left , Mid , Right

Left( 文字列 , 左から取り出したい文字数 )　　　　　　　　　　　　
Mid( 文字列 , 取り出したい文字の開始位置 , 取り出す文字数 )
Right( 文字列 , 右から取り出したい文字数 )　　　　　　　　　　　　

Option Explicit

Dim str

str = "achaporutepiipo"

WScript.Echo Left( str , 4 )　　　　' 結果　→　acha
WScript.Echo Mid( str , 5 , 6 )　　 ' 結果　→　porute
WScript.Echo Right( str , 5 )　　　 ' 結果　→　piipo

左からでも右からでも、好きな位置から好きな文字数の文字を抜き出せます。