For i = 0 To Len(Text1.Text)
'aca pones lo que se repetira tantas veces x letras osea lo que buskara la letra y la reemplazara..
Next i

Dim i As Long

For i = 1 To ListConexion.ListItems.Count 'Creamos un bucle
vIndex = Split(ListConexion.ListItems(i).Key, "|||")

If ws(vIndex(0)).State <> 7 Then 'Si no estamos conectado
ListConexion.ListItems.Remove (i) 'Elimnaos la conexion
End If

Next i 'Cerramos el bucle