Esto es mas fácil que un split... y te olvidas de convertir de string a byte o integer
dim MyBytePos() as Byte ' Si los numeros en el Array son mayors usa Integer en lugar de byte y si son mayores usa long y si no pss Double....
MyBytePos = Array(255,254,253,0,252,0,0,0,251,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,250,0,0,0,0,0,0, _
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,249,0, _
0,0,3,4,248,3,0,247,246,5,6,2,245,244,5,6,243,242,7,241,8,240,9,10,239,9,11,12,8,238,11, _
13,13,10,237,8,236,14,8,9,235,13,8,7,13,8,7,234,233,8,12,10,232,14,231,15,15,230,229,0,0,0, _
0,0,0,0,228,227,226,16,5,2,17,18,5,2,17,18,5,2,17,18,225,224,4,18,223,2,17,18,222,19,18, _
18,20,2,17,18,21,22,221,18,220,2,17,18,21,22,219,18,23,2,17,18,5,2,218,18,16,2,17,18,21,22, _
217,18,19,2,17,18,21,22,216,218,23,2,17,18,21,22,215,18,20,2,17)
debug.print chr(34) & Join(days(), ",") & chr(34) ' Esta linea la puedes quitar sin problemas
debug.print "Posicion Numero 0:"; MyBytePos(0)
debug.print "Posicion Numero 5:"; MyBytePos(5)
Dulces Lunas!¡.