Option ExplicitPrivate Sub Form_Load()Dim i As LongDim nueva() As StringDim palabra As Stringpalabra = "hola"ReDim nueva(Len(palabra))For i = 1 To Len(palabra) nueva(i) = Mid(palabra, i, 1)Next iEnd Sub