Luz Yanira Salamanca

drakong respondió: Public arreglo() Public i As Integer Public Function BuscarCadena(ByVal posicion As Integer, ByVal palabra As String) As String indice = InStr(posicion, palabra, "-") If indice = 0 Then i = i + 1 ReDim Preserve arreglo(9, i) arreglo(9, i) = palabra '...