Cita:
Iniciado por javiergarciaperez 
Gracias por responder. De esta manera sí funciona, lo que pasa es que se produce otro fallo, porque si pongo "val" delante del texto no me lee los decimales, es decir, si por ejemplo el text1=9 y el text2=4.5, me interpreta el código para que aparezca la imagen como si el text2 fuera igual a 4.
Si sabes cómo lo puedo solucionar dímelo, por favor. De todas maneras, gracias por responder.
Pues si estás trabajamdo con decimales, sustituye la función Val por CDbl.
Y por cierto, en el código que pones en el KeyAscii del TextBox, le falta algo y es cargar la variable "sDecimal" para que compruebe el formato del sistema
Creo recordar que ése código lo puse en otro foro y empezaba así:
Código:
Dim sDecimal As String
Private Sub Form_Load()
' comprueba el formato numérico del sistema
sDecimal = Format(0.1, "#.#")
sDecimal = IIf(InStr(sDecimal, ","), ",", ".")
End Sub
y a continuación el código en el evento KeyPress del TextBox tal y como lo has puesto.
