怎么把这个字符串分组，然后赋给一个数组里？

首先感谢16H
刚才出了点错误，应该是a（0）=4D，a（1）=5A，这样就好了

Option Explicit
Private Sub Form_Load()
Const S As String = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000E00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000002B9ED5106FFFBB436FFFBB436FFFBB43ACF0B4436EFFBB436FFFBA431BFFBB43ACF0E64362FFBB43ACF0E5436EFFBB43ACF0E4437AFFBB43ACF0DB437EFFBB43ACF0E1436EFFBB43526963686FFFBB43"
Dim i As Long, L As ListBox
Set L = Controls.Add("VB.ListBox", "L")
ReDim t(0 To (Len(S) / 2))
AutoRedraw = True
For i = 1 To Len(S) Step 2
     t(i / 2) = Mid(S, i, 2)
     L.AddItem t(i / 2)
Next
L.Move 120, 120, ScaleWidth - 240, ScaleHeight - 240
L.Visible = True
End Sub

输出的时候换行怎么写？
一行10个，然后换行

又不让发代码 区区3行 能有多大危险？！

发表回复的编辑框 已经被你们搞得不能正常响应鼠标操作了
玩够了没有？
PUBLIC FUNC.... A(BYVAL N AS LONG) AS STRING
CONST S AS STRING="4D5AXXXXXX"
IF N<=LEN(S)/2 THEN A=MID(S,1+2*N,2)
END FUNC....

谢谢楼上
还有一个问题
输出的时候换行怎么写？
一行10个，然后换行

i=i+1
IF I MOD 10 =0 THEN print
print a(i);

以我看 对贴吧采取攻击行动最多的人 就是这些搞限制的人！