Hola, lo que esta mal es que estas haciendo:
Código vb:
Ver originalIf (nummess > mesNow) & (numyearr > yearNow) Then
y el caracter "&" se usa para concatenar cadenas normalmente, si queres ver que las 2 condiciones se cumplan debes poner
And
Código vb:
Ver originalIf (nummess > mesNow) And (numyearr > yearNow) Then
saludos.