Private Sub CommandButton1_Click()
    On Error Resume Next
    Set oDoc = CreateObject("htmlfile")
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", "https://bbs.bccn.net/", False
        .send
        tt = Split(Split(.responsetext, "当前在线：")(1), "</td>")(0)
        oDoc.body.innerHTML = tt
        Set r = oDoc.All.tags("b")
        Debug.Print "当前在线：" & r(0).innerText
        Debug.Print "在线会员：" & r(1).innerText
        Debug.Print "在线访客：" & r(2).innerText
    End With
End Sub