Hola. Gracias por tu respuesta

Tengo esta función:
Function palabra(ByVal palabrass As String) As Integer
''''''''''''''
Dim Auxiliar As Double 'Variable auxiliar
Dim Escribio As String 'El InputBox solo admite String, asi que guardamos aca lo que escribe
Dim Modifico As Boolean
''''''''''''''
Dim cadena As String
Dim longitud As Integer
Dim precedentes() As String
Dim PERT() As String
Dim precedente As String
Dim ssql As String
Dim pert2 As Integer
Dim temp As Double
maxIndex = 1
longitud = Len(palabrass)
cadena = palabrass
precedentes = Split(cadena, ";")
For x = 0 To longitud / 2 - 1
precedente = precedentes(x)
Set rsprecedentes2 = New ADODB.Recordset
With rsprecedentes2 'Permite hacer una llamada a varias propiedades con solo poner 1 punto
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.ActiveConnection = CnConexion
.Source = "SELECT * from procesos where NombreAbreviado='" & precedente & "'"
.Open
End With
MsgBox rsprecedentes2!PERT
''''AKI M DA EL FALLO
PERT(x) = rsprecedentes2!PERT
Next
'''''''''''''''''''''''''''''''''
Modifico = True
While Modifico = True
Modifico = False
For y = 1 To longitud / 2
If PERT(y + 1) > PERT(y) Then
Auxiliar = PERT(y)
PERT(y) = PERT(y + 1)
PERT(y + 1) = Auxiliar
Modifico = True
End If
Next y
Wend
''''''''''''''''''''''''''''''''''
pert2 = PERT(0)
MsgBox pert2
'''AKI TB ME DA FALLO
Return
End Function
¿Me podrías decir como soluciono estos 2 errores? GRACIAS