كود مش عارفة احوله

الاخوة الكرام اعضاء المنتدى

عندي مشكلة في تحويل كود من c# الى vb

والكود كالتالي:

  private void btnHyperlink_Click(object sender, RoutedEventArgs e)
        {
            InsertURL cw = new InsertURL(rta.Selection.Text);
            cw.HasCloseButton = false;
            cw.Closed += (s, args) =>
            {
                if (cw.DialogResult.Value)
                {
                    Hyperlink hyperlink = new Hyperlink();
                    hyperlink.TargetName = "_blank";
                    hyperlink.NavigateUri = new Uri(cw.txtURL.Text);

                    if (cw.txtURLDesc.Text.Length > 0)
                        hyperlink.Inlines.Add(cw.txtURLDesc.Text);
                    else
                        hyperlink.Inlines.Add(cw.txtURL.Text);

                    rta.Selection.Insert(hyperlink);
                    ReturnFocus();
                }
            };
            cw.Show();
        }

عند تحويله عندي مشكلة في السطر ده لانه بيتحول غلط

 cw.Closed += (s, args) =>
            {
                if (cw.DialogResult.Value)
                {
                    Hyperlink hyperlink = new Hyperlink();
                    hyperlink.TargetName = "_blank";
                    hyperlink.NavigateUri = new Uri(cw.txtURL.Text);

                    if (cw.txtURLDesc.Text.Length > 0)
                        hyperlink.Inlines.Add(cw.txtURLDesc.Text);
                    else
                        hyperlink.Inlines.Add(cw.txtURL.Text);

                    rta.Selection.Insert(hyperlink);
                    ReturnFocus();
                }
            };

ولما حولته اصبح كدة

Private Sub btnHyperlink_Click(sender As Object, e As RoutedEventArgs)
	Dim cw As New InsertURL(rta.Selection.Text)
	cw.HasCloseButton = False
	cw.Closed += Function(s, args) Do
		If cw.DialogResult.Value Then
			Dim hyperlink As New Hyperlink()
			hyperlink.TargetName = "_blank"
			hyperlink.NavigateUri = New Uri(cw.txtURL.Text)

			If cw.txtURLDesc.Text.Length > 0 Then
				hyperlink.Inlines.Add(cw.txtURLDesc.Text)
			Else
				hyperlink.Inlines.Add(cw.txtURL.Text)
			End If

			rta.Selection.Insert(hyperlink)
			ReturnFocus()
		End If
	End Function	cw.Show()
End Sub
..

فارجو ممن لديه الخبرة مساعدتي ازاي اعمله من خلال addhandler رجاء الاهتمام فانا في امس الحاجة لحل المشكلة دي

جزاكم الله عني خير جزاء