Dim tArr(20) As String, s as String, i as Integer, j as Integers = "0113634387468401546680406464646"j = 0For i = 1 To Len(s) Step 3 tArr(j) = Mid(s, i, 3) j = j + 1Next
