Public Function PageLastModified(URL As String) As String
Dim strHeader As String
Inet1.Protocol = icHTTP
On Error Resume Next
Inet1.OpenURL (URL)
If Err.Number > 0 Then Exit Function
strHeader = Inet1.GetHeader("Last-modified")
PageLastModified = strHeader
End Function

Private Sub Command1_Click()
MsgBox PageLastModified("http://visualprogs.narod.ru/index.html")
End Sub