Can you just set the number format of the cell to month?
or maybe this kinda thing:
DCDATE = Me.TextDC.Value
DCDATE = DateSerial(Year(DCDATE), Month(DCDATE), day(DCDATE))
I am making sure the date is formatted the way I want.
Or I suppose you could just do an IF THEN statement to see if the entry is a valid month with a msgbox error statement.
I am new and these are my guesses, maybe it will get ya going until you get more help.