Validar hora como dato De entrada

Tenemos nuestra caja de texto que sólo debe dejar que el usuario ingrese una hora. Una solución es hacerlo con expresiones regulares.

Imports System.Text.RegularExpressions

Public Function esHoraValida() As Boolean
  Dim r As New Regex("([0-1][0-9]|2[0-3]):[0-5][0-9]")
  Dim sw As Boolean = True
  If Not (r.Match(Me.txtHora.Text)).Success Then
    sw = False
    'Si el dato de entrada no es hora, mostrar un mensaje al usuario ("Debe ingresar la hora con formato válido [08:30].")
  End If
  Return sw
End Function

Ah, y por cierto, para que la caja de texto sólo admita cuatro dígitos y ya esté incluido los dos puntos del medio, estoy usando el control MaskedTextBox (en winforms, en webforms también hay uno similar)

HaPPy CoDiNg =)