K...Here's the code I have...

Code:
vntService = txtService.text

dtmTemp = Format(vntService, "dd,mm,yy")
                            
If IsDate(dtmTemp) Then 

vntNextService = DateAdd("m", 6, dtmTemp) 
    
strNextService = vntNextService
                                
strService = Str(dtmTemp)
                                
Else

txtService holds a date value in the British format of dd/mm/yy. If a date such as 13/13/01 is entered, a message box will be displayed informing the user of this. However, if a date such as 12/13/01 is entered, which would be invalid under the British date system, the code I have, even without the "Format" line, converts the date to mm/dd/yy, which, although a valid date is now held in the variable, causes a later part of the program to work incorrectly.

If someone could tell me how to stop this automatic formatting without splitting up the date variable and analyzing each element, I would be extremely grateful!

BTW, changing the latter part of the program is not an option. I need this bit to work properly.

TIA!!!