Demande d'aide , visual basic

Bonjour,
j'arrive pa à distinguer l'erreur ds cette fonction qui a pour but de décomposer une phrase en bloc de caractère et en bloc d'espace, le copilateur indique l'eereur suivante " Make sure that the maximum index on a list is less than the list size " au niveau de la ligne indiqué par une flèche :
aidez moi à découvrir l'erreur svp

Imports System.Console
Module Module1
Sub Main()
Dim msg As String = "ça marche ?"
Dim t(Len(msg)) As String
Console.WriteLine("mokréz")
Call Decomposer(msg, t)
Console.WriteLine("mokréz")
For i = 0 To t.Length - 1

Console.WriteLine(t(i))
Next
Console.WriteLine()
Console.ReadKey()
End Sub
Sub Decomposer(ByVal strMsg As String, ByRef TB() As String)
Dim i, j As Integer
j = 0
i = 0
Do
If (strMsg(i) <> " ") Then
While (strMsg(i) <> " ") And (i < strMsg.Length) <=== erreur
TB(j) &= TB(i)
i = i + 1
End While
End If
If (strMsg(i) = " ") Then
While (strMsg(i) = " ") And (i < strMsg.Length)
TB(j) &= TB(i)
i = i + 1

End While
End If
j = j + 1
Loop Until (i = strMsg.Length)
End Sub
End Module