vb如何获取服务器时间?

vb如何获取服务器时间?比如想获得  http://www.icetime.com.cn/ 的时间我用了 
Dim HTTPUrl As String
Dim Retrieval As Object
 
Function GetURL(Optional url As String)
Set Retrieval = CreateObject("Microsoft.XMLHTTP") '//建立对象
If url <> "" Then
    HTTPUrl = url
End If
On Error GoTo Exittag:
With Retrieval
.open "GET", url, False, "", "" '//GET 方式获取页，还有比如POST 形式提交数据
.send
GetURL = .responsetext
End With
Exit Function
Exittag:
MsgBox Err.Description & "::. GetUrl" '//获取错误信息，产生错误后，错误信息会放入vb.Err对象
Err.Clear
Set Retrieval = Nothing '//释放
End Function
获取网页内容Private Sub Command1_Click()
             '修改时间
             'Shell "cmd.exe /c time 23:29:54"
End Sub可内容里没有服务器时间该如何解决这个问题?