[VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتي

PHP كود :

Sub cnt_OnMessage(sender As Object, Msg As agsXMPP.protocol.client.Message)
            If InvokeRequired Then
                BeginInvoke(New agsXMPP.protocol.client.MessageHandler(cnt_OnMessage), New Object() {sender, Msg})
            Else
                If Msg.Body.ToLower() = textBox4.Text Or Msg.Body.ToLower() = textBox5.Text Then
                    'inja ye shart mizarim migim age mseghaye daryafti barabar bod ba meseg dakhele text boxha dastorate ziro anjam bde  
                    mojtaba.Send("<message to='" + rom.Text + "@conference.nimbuzz.com' type='groupchat'><body>" + Msg.From.Resource.Trim() + " Dahaneto gereftam ta dg to bashi harfe zesht nazani :-| To kaf bash :p:D</body></message>")
                    'in xml ersal msg be rome ke msg ke neveshtamo misende to rom
                        'inam xml visitoor kardane id dar rom ke bayad in bot admin bashe ta in xml ejra beshe 
                    mojtaba.Send("<iq type='set' to='" + rom.Text + "@conference.nimbuzz.com' id='mir_437'><query xmlns='http://jabber.org/protocol/muc#admin'><item nick='" + Msg.From.Resource.Trim() + "' role='visitor' /></query></iq>")

                End If
            End If
        End Sub 