How to split a string or number with four digits using vb script

strString = "12345678909876543210"
For i=1 To Len(strString) step 4
    WScript.Echo Mid(strString,i,4)
Next

--------------------
-Out put is:

1234
5678
9098
7654
3210