Not sure you can do it from the system date? But you can call the
GetTimeZoneInformation API, which provides a pretty good deal of data to work from.
If you download TimeZone.zip from http://www.mvps.org/vb/samples.htm you'll have a
drop-in ready class you can use in VBA.