Visual Basic para Aplicaciones - extraer caracteres de una cadena y almacenarlos en una matriz

ReDim Matriz(1 To NumeroDeRegistros)

For i = 1 To 5

For j = 1 To Len(Matriz(i))

ReDim letra(i - 1, j - 1) As String

 letra(i - 1, j - 1) = Mid(Matriz(i - 1), i, 1)

 MsgBox " letra:" & letra(i, j)

 rs.MoveNext

Next j

Next i

Dim NumeroDeRegistros As Integer

Dim Matriz() As String

Dim cadenadetexto As String

cadenadetexto = "Hola Mundo"   ' Texto de ejemplo

NumeroDeRegistros = Len(cadenadetexto)

ReDim Matriz(NumeroDeRegistros - 1)

For i = 1 To NumeroDeRegistros

    Matriz(i - 1) = Mid(cadenadetexto, i, 1)

Next i