lo voy a probar gracias por tu ayuda
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private Sub Text1_Change()
If Text1.Text <= 99 Then
Text1.BackColor = vbGreen
ElseIf Text1.Text > 99 Then
Text1.BackColor = vbRed
End If
End Sub