(Date) to (Long) seconds since GMT 1/1/1970?

Do you mean you want it in Long Date? To come out like: 1-January-1970?

Using Kedaman's code:

GMTDate = DateAdd("h", -Zone, Date)
Date = DateAdd("h", Zone, GMTDate)
NewGMTD = Format$(GMTDate, "m-dddd-yyyy")
NewDate = Format$(Date, "m-dddd-yyyy")

MsgBox "GMT Date:  " & NewGMTD & Chr$(10) & "Date:  " & NewDate

And to recieve the time:

GMTTime = DateAdd("h", -Zone, Time)
Time = DateAdd("h", Zone, GMTTime)
NewGMTT= Format$(GMTTime, "hh:mm:ss AMPM")
NewTime = Format$(Time, "hh:mm:ss AMPM")

MsgBox "GMT Time:  " & NewGMTT & Chr$(10) & "Time:  " & NewTime

Thanks for the code Kedaman..it will come in handy one day.