Sorry for the delay. We were out Friday due to weather. You can do this to retrieve the time zone:
sComp = "."
Set objWMI = GetObject("winmgmts:\\" & sComp & "\root\CIMV2")
Set colItems = objWMI.ExecQuery("SELECT * FROM Win32_TimeZone", "WQL")
For Each objItem In colItems
sZone = objItem.Caption
Then check sZone. On my PC it returns:
(GMT-05:00) Eastern Time (US & Canada)
So that should help. I would check the GMT value, perhaps, or the US & Canada string. To see all the possible values, double click your clock in the Sys Tray. When the Date and Time Properties dialog box comes up, click the Time Zone tab, and use the pull down at the top to see all the possible lines returned by this routine. Then you could create a table, or just do a Select Case statement.
Did that help?
Look it up at: http://wrox.books24x7.com