Dim objIEApp As Object
Set objIEApp=CreateObject("InternetExplorer.Application")
objIEApp.Visible=False
objIEApp.Navigate2 "http://www.wp.com"

Option Explicit

Private Sub Form_Load()
    WebBrowser1.Navigate2 "http://www.r0.ru"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    MsgBox WebBrowser1.Document.All( 0 ).tagName
End Sub

Option Explicit

Private Sub Form_Load()
'Здесь изменяем статус Label'а
    lblStatus.Caption = "Loading..."
'Чтобы сообщения не выходили, не то у меня выходит, ошибка выполнения скрипта и т.д.
    WebBrowser1.Silent = True
'Перемещаем контрол WebBrowser за пределы Form'ы
    WebBrowser1.Left = Me.Left + Me.Width +  10 
    WebBrowser1.Top = Me.Top + Me.Height +  10 
'Пустая страница
    WebBrowser1.Navigate2 "about:blank"
'Загрузка сайта
    WebBrowser1.Navigate2 "http://wow.kraslan.ru/index.php?action=server"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'Так как сайт у тебя дважды грузится, в смысле данное событие происходит дважды:
'один раз, когда первый раз грузишь
'потом она, обновляется
'а элемент который содержит строку Online, Offline имеет индекс 12, при первой загрузке, когда на 'сайте ничего нет элемента с индексом 12, нет поэтому и поставил On Error...
'при повторной загрузке, если таковой имеется изменяется текст и back color Label'а
    On Error Resume Next
    Dim strStatus$
    strStatus = Trim$(WebBrowser1.Document.All( 12 ).innerText)
    If StrComp(strStatus, "Online", vbTextCompare) =  0  Then
        lblStatus.BackColor = vbGreen
        lblStatus.Caption = "Online"
    ElseIf StrComp(strStatus, "Offline", vbTextCompare) =  0  Then
        lblStatus.BackColor = vbRed
        lblStatus.Caption = "Offline"
    End If
End Sub