Public sub Ejemplo (Byval frase as string, ByRef Caracteres() As Byte )
Dim int1 As integer
For int1 = 1 To Len(frase)
If int1 > 1 Then
Redim Preserve Caracteres(1 to int1)
Else
Redim Caracteres(1 to 1)
End If
Caracteres(int1)=asc(mid(frase,int1,1))
Next int1
End Sub