Retrieve the last modified date of a web page

The following code uses the Microsoft Internet Transfer
Control(inet) 5.0 SP(3).

Place the control on the form, add a command button and
text box. Then cut and paste the code below.
========================================================

Private Sub Command1_Click()
Dim strHeader As String

'Set the protocol
Inet1.Protocol = icHTTP

'open URL
Inet1.OpenURL ("http://www.microsoft.com")

' Retrieve the date page was last modified
strHeader = Inet1.GetHeader("Last-modified")

Text1 = strHeader
End Sub