Visual Basic.NET - Dividir una cadena en cadenas mas pequeñas

Hola.
Mi problema es el siguiente:
Mi entrada de texto es un "TextBox". Imaginen que introduzco: "Hola me llamo Jose", pués pretendo guardar esa cadena en cadenas de 4 caracteres. Quedando:
cad1 = "Hola"
cad2 = " me "
cad3 = "llam"
cad4 = "o Jo"
cad5 = "se"
¿A alguien se le ocurre cómo hacerlo?

Lo solucioné:

Dim TxtLen As Integer = Len(TxtEscribir.Text) 'Longitud de la cadena a escribir
Dim Bloques As Integer
Dim cadena(9) As String

'Para contar el numero de bloques de memoria
If (TxtLen Mod 4) > 0 Then
Bloques = (TxtLen 4) + 1
Else
Bloques = TxtLen / 4
End If

'Para separar el texto en bloques de 4
For i As Integer = 0 To Bloques - 1
cadena(i) = Mid(TxtEscribir.Text, 1 + i * 4, 4)
Next