在 VB 中，可以通过修改 WebBrowser 控件的 Document 属性来设置 UserAgent。以下是一个简单的示例：

Sub SetUserAgent() '获取 WebBrowser 控件

    Dim wb As WebBrowser

    Set wb = Me.WebBrowser1

    '设置 UserAgent

    wb.Document.parentWindow.execScript "navigator.userAgent = 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 Safari/537.3'", "JavaScript"

End Sub

上面的代码里，我们获取了名为 WebBrowser1 的 WebBrowser 控件，并使用 execScript 方法将一个新的 UserAgent 设置为浏览器的 UserAgent。请注意，这个示例中的 UserAgent 是 Chrome 58 的 UserAgent。您可以根据需要更改 UserAgent。