Android Question MQTT SimpleChat unable to connect to hiveMQ cloud

TrustAll(mo)

'Depends on JavaObject and jNet or Net libraries
Sub TrustAll (mo As MqttConnectOptions)
    Dim SSLContext As JavaObject
    SSLContext = SSLContext.InitializeStatic("javax.net.ssl.SSLContext").RunMethod("getInstance", Array("TLS"))
    Dim tm As CustomTrustManager
    tm.InitializeAcceptAll
    SSLContext.RunMethod("init", Array(Null, tm, Null))
    Dim jmo As JavaObject = mo
    jmo.RunMethod("setSocketFactory", Array(SSLContext.RunMethod("getSocketFactory", Null)))
End Sub

Public Sub ConnectTo(Host As String, Name As String)
    currentName = Name
    isServer = Host = "127.0.0.1"
    If isServer Then
        If brokerStarted = False Then
            broker.Start
            brokerStarted = True
        End If
        users.Clear
'        Host = "127.0.0.1"
    End If
    If connected Then client.Close
    client.Initialize("client", $"ssl://${Host}:${port}"$, "android" & Rnd(1, 10000000))
    Dim mo As MqttConnectOptions
    mo.Initialize("yves1", "lespommes")
TrustAll(mo)                              '<<<<<<<<<<<<<<<<<<<--------------'
    'this message will be sent if the client is disconnected unexpectedly.
    mo.SetLastWill("all/disconnect", serializator.ConvertObjectToBytes(currentName), 0, False)
    client.Connect2(mo)
End Sub

Public Sub ConnectTo(Host As String, Name As String) 'not using host and name...
    Log("try to connect...")
    If mqtt.Connected=True Then    mqtt.close
        Do While mqtt.IsInitialized
            Sleep(100)
        Loop
    mqtt.Initialize("mqtt", "ssl://xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx.s2.eu.hivemq.cloud:8883",  "android1")  'have in mind that "mqtt" here is event!!!!
    Dim mo As MqttConnectOptions
    mo.Initialize("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx", "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx")
    TrustAll(mo)                              '<<<<<<<<<<<<<<<<<<<--------------'

    mqtt.Connect2(mo)
    Wait For mqtt_Connected (Success As Boolean)
    If Success Then
        Log("SUPER!!!!")
        'here is a good place for subscribe...
        '....
        '....
        
        Do While mqtt.Connected
                Try
                Dim CX As B4XSerializator
                Dim res As Int=1821 ' a number or anything you want
                    mqtt.Publish2("ping", CX.ConvertObjectToBytes(res), 0, False)
                Catch
                    Log(LastException)
                End Try
            Sleep(1000)
        Loop
    Else
        Log(Success)
    End If
End Sub

Sub mqtt_Connected (Success As Boolean)
    Log(Success)
....

End Sub

Sub mqtt_Disconnected
    Log("disconnected-mqtt")
...
End Sub

Sub mqtt_MessageArrived (Topic As String, Payload() As Byte)
....