Option Explicit
 
Private Sub CheckSevText(sevT As sevText)
 
With sevT
 
    If sevT.Value = "00:00" Then
        .ForeColor = vbWhite
    Else
        .ForeColor = vbBlack
    End If
 
End With
 
End Sub
 
Private Sub sevText_Change()
    Call CheckSevText(Me.sevText)
End Sub