ник: osmor
смотря что хотите делать. Разбить можно и так
Sub str2Byte(mystring As String)
Dim U() As Byte
Dim intStep As Integer
Dim i As Integer
intStep = LenB("А")
U() = mystring
For i = 0 To UBound(U) Step intStep
Debug.Print U(i)
Next
End Sub
Но в целом, ответ Дрюни