private sub pruebaVelocidad()
dim t1, t2 as integer 'inicia y paran el crono
dim tiempo1,tiempo2 as integer 'obtienen el crono que tarda una función en ejecutarse (se supone que relaizan la misma operación de distinta manera)
dim resp,resp1,resp2 as string 'devuelve el nombre de la función
ti=vb.timer
'resp1= funcionaprobar1()
t2=vb.timer
tiempo1=t2-t1
ti=vb.timer
'resp2= funcionaprobar2()
t2=vb.timer
tiempo2=t2-t1
resp=IIF(tiempo1 > tiempo2,resp2,resp1)
msgbox("La función más rápida fue: " & resp & " y los cronos fueron: " & tiempo1 & " " & tiempo2 )
end sub