Ya esta, ya lo tengo, dejo la solución:
Código:
Dim Bloques() As String = New String(50) {}
Dim Count As Short = 1
Dim Array As Short = 0
For i = 0 To Value.Length - 1
Bloques(Array) &= Value(i) & ","
If Count = 4 Then
Count = 1
Array += 1
Else
Count += 1
End If
Next
Si encontrais que se puede mejorar de alguna parte decidmelo