Color de fuente de un textbox dependiento de valores hh:mm:ss

[hiddenmafia]

Buenas tardes estimados programadores,

Acudo nuevamente a su conocimiento, de antemano, agradecer siempre a la persona que se tome el tiempo de ayudarme.

Como lo indico, lo que requiero es lo siguiente 

Tengo un TextBox15 en el cual una vez el usuario hace clic arroja un tiempo en formato "hh:mm:ss", este tiempo sale después de restar 2 fechas del mismo formulario.

Ahora bien, la ayudita que quiero es que dependiendo del rango de tiempo le ponga un color u otro, de la siguiente manera

si es >= 00:05:00 ponga el color del forecolor del textbox15 rojo

si es > 00:02:00 y 00:05:00 ponga el forecolor en amarillo

si es < de 00:02:00 ponga el forecolor en verde

Agradezco de sobre manera a quien pueda ayudarme.

JAAA

[Jose BN]

A ver si así te sirve:

 

Private Sub TextBox1_Change()
    If TextBox1.Text >= "00:05:00" Then
        TextBox1.ForeColor = RGB(255, 0, 0)
    ElseIf TextBox1.Text < "00:02:00" Then
    TextBox1.ForeColor = RGB(0, 128, 64)
  ElseIf TextBox1.Text = "00:02:00" Or TextBox1.Text < "00:05:00" Then
        TextBox1.ForeColor = RGB(255, 255, 0)
    End If
End Sub

Saludos

J

[hiddenmafia]

querido @Jose BN

funciono perfecto. Que sencillo era. Muchas gracias por compartir tu conocimiento.

 

[John Jairo V]

¡Hola, a ambos!

Otra opción, puede ser:

Private Sub TextBox1_Change()
  With TextBox1
    Select Case .Text
      Case Is < "00:02:00": .ForeColor = rgbGreen
      Case Is >= "00:05:00": .ForeColor = rgbRed
      Case Else: .ForeColor = rgbYellow
    End Select
  End With
End Sub

¡Bendiciones!