El array asesino

Yo.- Dr. Grafo, me acabo de encontrar con esto.
¿Me puede dar alguna reflexion?

For sd = 0 To UBound(ListaPenS)
xxx
xxx
If sd = UBound(ListaPenS) Then GoTo Tamo
Next sd
Tamo: xxxx

DG.- mmm ... veamos dos cosas para analizar.
Por una lado un GoTo, podriamos decir que hay BASIC o algún otro lenguaje ochentoso en su subconciente traicionandolo.
Por otro lado vemos una inseguridad marcada en la salida del bucle.
Esto puede ser debido a algun encuentro traumatico con algun bicho raro como "el array asesino", es un bicho traicionero que cambia sin aviso ni permiso. Un encuentro de este tipo puede dejarte marcado para siempre, despues de un encuentro con el un UBound no será nunca más un UBound

Yo.- ¿Alguna cura ?

DG.- No, el array asesino es inolvidable y mezclado con basic ni hablemos ...
Paseme el whisky por favor

Yo.- Tome doctor, esto puede ayudar ?

DG.- No, pero se te esta derritiendo el hielo y es un desperdicio



----
rr.-