[سيما]

السلام عليكم

هل ممكن تحويل كود vb6 الى كود vb 2010

Text2.Text = Text1.Text

n = 0

For i = 1 To Len(Text1)

    Text2.SetFocus

    Text2.SelStart = n

    Text2.SelLength = 1

    MsgBox ""

    If Text2.SelText = "a"  Then

        "Text2.SelText = "abc 

        n = n + 6

    ElseIf Text2.SelText = "b" Then

        "Text2.SelText = "bcd 

        n = n + 6

     ElseIf Text2.SelText = "c" Then

        "Text2.SelText = "cd

        n = n + 4

End if
Next