si la cadena está en una variante string
lo que tenés que hacer para evaluarla con un número, es transformar la cadena string en valor. Función Val( )
Dim mi_cadena as String
Dim Mi_Numero as Integer
Mi_cadena = "45"
Mi_Numero= 45
If Val(Mi_cadena) = Mi_Numero then Msgbox "Son iguales"
si la cadena está en una variante string
lo que tenés que hacer para evaluarla con un número, es transformar la cadena string en valor. Función Val( )
Dim mi_cadena as String
Dim Mi_Numero as Integer
Mi_cadena = "45"
Mi_Numero= 45
If Val(Mi_cadena) = Mi_Numero then Msgbox "Son iguales"