Validar fecha en MaskEdBox en VB6?

[feivelfabiola]

Hola:

Tengo lo siguiente en mi codigo:

Private Sub MaskEdBox1_GotFocus()

Cadena = Format(Now, "m yyyy") 'Devuelve fecha de Hoy que hay en el PC
mesNow = Month(Now) ' integer mesNow = 1
yearNow = Year(Now) 'integer yearNow = 2010
MsgBox "mes = " & mesNow & " año = " & yearNow '1 2010 ---> fecha PC

MaskEdBox1.Format = ""
MaskEdBox1.Mask = ""
MaskEdBox1.SelStart = 0
MaskEdBox1.SelLength = 8 'Len(MaskEdBox1.Text)
With MaskEdBox1
.Format = "mmm-yyyy"
.Mask = "##/####"
End With
End Sub

Private Sub MaskEdBox1_LostFocus()
If Not (IsDate(MaskEdBox1.Text)) Then
MaskEdBox1.SetFocus
End If

'Guardar el valor de MaskEdBox1 sin los separadores en valor numerico en una variable String
MaskEdBox1.ClipMode = mskExcludeLiterals
MaskEdBox1.SelStart = 0: MaskEdBox1.SelLength = 8


lafecha = MaskEdBox1.Text
mess = Left(lafecha, 2)
yearr = Right(lafecha, 4)
MsgBox "mes = " & mess & " año = " & yearr 'mes = 9 año = 2008 -> tecleados
End Sub
''''''''''''''''''''''''''''''''''''''''''''''
Lo que quiero hacer es comparar estos valores enteros mesNow y mess, y yearNow contra yearr para que si alguien teclea por ejemplo 12/2345
la fecha no la tome en cuenta, quiero corregir ese error porque el mes Dic del año 2345 todavia no ocurre.

Habia hecho lo siguiente:

If (nummess > mesNow) & (numyearr > yearNow) Then
MaskEdBox1.SetFocus
End If

pero no funciona, alguien que me oriente por favor.

Fabiola.