Connect to a broker with WebSocket

Private Sub Connect_WithWebSocket()
On Error GoTo errExit
    Dim connOption As MQTTConnectOption
    Dim retCode As MqttConnectionCode
    
    Set mFactory = Application.CreateMQTT
    Set mClient = mFactory.CreateClient
    Set connOption = mFactory.CreateConnectOption()
    
    connOption.ClientID = "Client01"
    connOption.Version = MqttVersion500
    connOption.Protocol = MqttProtocolWebSocket
    connOption.Host = "broker.com"
    connOption.Port = 8083
    connOption.Path = "mqtt"
    
    ' It can also be configured directly with the function:
    ' connOption.WithWebSocketServer "broker.com", 8083, "mqtt"
    
    retCode = mClient.Connect(connOption)
    
    Exit Sub
    
errExit:
    MsgBox err.Description
End Sub