Connect to a broker with TCP

Private Sub Connect_WithTCP()
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 = MqttProtocolTcp
    connOption.Host = "broker.com"
    connOption.Port = 1883
    
    ' It can also be configured directly with the function:
    ' connOption.WithTcpServer "broker.com", 1883
    
    retCode = mClient.Connect(connOption)
    
    Exit Sub
    
errExit:
    MsgBox err.Description
End Sub