How to convert http date to OLE(VB/VBS) date.MOTOBIT.COM

'Converts date In http form (Fri, 22 Oct 1999 12:08:38 GMT)
'to date
Const GMTDiff As Date = #1:00:00 AM#
Public Function DateFromHTTP(HTTPDate As String) As Date
  Dim Swd As String, d As String, Sm As String, y As String, h As String, m As String, s As String, g As String, Out As Date
  HTTPDate = LCase$(HTTPDate)

  If Mid$(HTTPDate, 27, 3) = "gmt" Then
    Swd = Left$(HTTPDate, 3)
    d = Mid$(HTTPDate, 6, 2)
    Sm = Mid$(HTTPDate, 9, 3)
    y = Mid$(HTTPDate, 13, 4)
    h = Mid$(HTTPDate, 18, 2)
    m = Mid$(HTTPDate, 21, 2)
    s = Mid$(HTTPDate, 24, 2)
'    on error resume Next
    Out = DateSerial(y, mFromSm(Sm), d) + TimeSerial(h, m, s) + GMTDiff
'    on error goto 0
  End If
  DateFromHTTP = Out
End Function

Function wdFromSwd(Swd As String) As Integer
  Dim Out As Integer
  Select Case LCase$(Swd)
    Case "sun": Out = 1: Case "mon": Out = 2: Case "tue": Out = 3: Case "wed": Out = 4: Case "thu": Out = 5: Case "fri": Out = 6: Case "sat": Out = 7
  End Select
  wdFromSwd = Out
End Function

Function mFromSm(Sm As String) As Integer
  Dim Out As Integer
  Select Case LCase$(Sm)
    Case "jan": Out = 1: Case "feb": Out = 2: Case "mar": Out = 3: Case "apr": Out = 4
    Case "may": Out = 5: Case "jun": Out = 6: Case "jul": Out = 7: Case "aug": Out = 8
    Case "sep": Out = 9: Case "oct": Out = 10: Case "nov": Out = 11: Case "dec": Out = 12
  End Select
  mFromSm = Out
End Function