PrivateFunctionnhnQRLink(ByValnhnIDAsString,ByValnhnCookieAsString,ByVallinkAsString)AsStringDimTAsString=""Try'ServicePointManager.Expect100Continue=True'ServicePointManager.SecurityProtocol=SecurityProtocolType.TlsOrSecurityProtocolType.Tls11OrSecurityProtocolType.Tls12OrSecurityProt…