どうでもいいものを投下してみるテスツ（ソースの表示てすと
Public Function LocalToRFC1123Time(Optional HourDifference As Long = -9) As String
'ローカル時間を日本時間としたときのGMT表記(RFC1123)にする
Dim gt As Date

gt = DateAdd("h", HourDifference, Now())
LocalToRFC1123Time = Choose(Weekday(gt) - vbSunday + 1, "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat") & ", "
LocalToRFC1123Time = LocalToRFC1123Time & Right$("0" & Day(gt), 2) & " "
LocalToRFC1123Time = LocalToRFC1123Time & _
Choose(Month(gt) - 1 + 1, "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec") & " "
LocalToRFC1123Time = LocalToRFC1123Time & Year(gt) & " "
LocalToRFC1123Time = LocalToRFC1123Time & Right$("0" & Hour(gt), 2) & ":" & Right$("0" & Minute(gt), 2) & ":" & Right$("0" & Second(gt), 2)
LocalToRFC1123Time = LocalToRFC1123Time & " " & IIf(HourDifference <= 0, "+", "-") & Right$("0" & Abs(HourDifference), 2) & "00"
End Function