Split String in ASCii

Question

I want to split many strings into its ASCII values.

Dim aoC(99), i As Integer    
Dim W As String

W="abcd"
For i = 1 To Len(W)
    aoC(i) = Asc(Mid