Sub UseByteArr()
Dim arr() As Byte
Dim s As String
Dim l As Long
s = "test"
arr = s

For l = 0 To UBound(arr) Step LenB("A")
Debug.Print arr(l)
Debug.Print Chr(arr(l))
Next

End Sub

regards
r

http://excelvba.altervista.org/blog/...ternative.html


"ExcelMonkey" wrote:

What would be the advantage to dimensioning an array as a Byte - such as:

Arr() As Byte

Thanks

EM