Guardar cadena en Array (VB6)

[erbuson]

Hola, para hacer lo que quieres pudes utilizar una funcion similar a esta, que te devuelve una matriz de elementos, figamos que funcionaría de la manera similar a Split

Código vb:

Private Function SubCadenas(ByVal Cadena As String, Bytes As Integer) As String()
  Dim Temp() As String
  Dim i As Integer
  Do While Cadena <> ""
    ReDim Preserve Temp(i)
    Temp(i) = Left$(Cadena, Bytes)
    i = i + 1
    Cadena = Mid$(Cadena, Bytes + 1)
  Loop
  SubCadenas = Temp
End Function
 

Ejemplo:

Matriz() = SubCadenas("Estos es una prueba de subcadenas", 3)