[نهى علي]

السلام عليكم

الاخوة الاعزاء
كيف يتم تحويل كود فيجوال 6 هذا الى كود فيجوال 2019

PHP كود :

Private Sub Command1_Click()
ch = Array("a", "b", "c", "d")
num = Array(11011, 20002, 32143, 412124)
For i = 1 To Len(Text2)
    x = Mid$(Text2.Text, i, 1)
    
    For j = 0 To 3
        If x = ch(j) Then
            Text1.Text = Val(Text1.Text) + Val(num(j))
        End If
    Next
Next
End Sub