date HELP using VBA code

[fanku]

i have manually set my date to dd/mm/yyyy in my laptop to run following code.

so

if system date format = dd/mm/yyyy then do following

VB:

sysdate = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd/mm/yy") 
 
If sysdate >= DateSerial(2013, 7, 30) Then 
    MsgBox "Error in your File" 
    Exit Sub 
End If

and above code is running properly..

but now i am giving my files to my others friends..but their system date settings are different and every time i hve to do manually or via teamviewer hence pls suggest how set via VB codes

if system date format like m/dd/yyyy or mm/dd/yyyy or many more..
then also my code should run

pls help me with code.
pls help

[jindon]

Isn't it just

If Date >= #7/30/2013# Then