数组的表达式怎么写？

ikon

Dim a() As String
'Type2RedBall()模块
Dim i,j As Integer
Me.Txt_DPHM = Null
Debug.Print Type2RedBall(Mid(Me.Txt_JOZS, 1, 1))
Debug.Print "=================================="
a() = Split(Type2RedBall(Mid(Me.Txt_JOZS, 1, 1)), ",")
For j = 0 To UBound(a())
   For i = 1 To 33
      If i = a(j) Then
         Me.Txt_DPHM = Me.Txt_DPHM & i & " "
         Debug.Print "j = " & j
         Debug.Print "a(" & j & ") = " & a(j)
         Debug.Print "i = " & i
         Debug.Print "txt = " & Me.Txt_DPHM
         Debug.Print "--------------------------"
      End If
      'DoEvents
   Next i
   'DoEvents
Next j

在网上找了些资料写了以上的代码,这段代码还有优化的地步吗?(比较容易理解的)