ما هو الفرق بين كود دوت نت والكود للفيجوال بيسك...وهل يمكن التعديل ام مستحيل؟

كود :
'Author Programmation(OmarNegm)

    Public Function Conversion(ByVal strSource As String) As String

        Const English As String = "a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z|]|[|'|;|/|.|,|`"

        Const Arabic As String = "Ô|áÇ|Ä|í|Ë|È|á|Ç|å|Ê|ä|ã|É|ì|Î|Í|Ö|Þ|Ó|Ý|Ú|Ñ|Õ|Á|Û|Æ|Ï|Ì|Ø|ß|Ù|Ò|æ|Ð"



        Dim arrEnglish() As String = Split(English, "|")

        Dim arrArabic() As String = Split(Arabic, "|")

        Dim arrSource() As String = Split(strSource, " ")

        Dim strFinal As String = ""

        Dim currChar As Char



        For J As Integer = 0 To arrSource.Count - 1 Step 1

            For I As Integer = 1 To Len(arrSource(J)) Step 1

                currChar = LCase(Mid$(arrSource(J), I, 1))

                If isArabicChar(currChar) = False Then

                    For H As Integer = 0 To arrEnglish.Count - 1 Step 1

                        If currChar = arrEnglish(H) Then

                            If strFinal.Trim = "" Then

                                strFinal = arrArabic(H)

                            Else

                                strFinal &= arrArabic(H)

                            End If



                        End If

                    Next

                Else

                    For H As Integer = 0 To arrArabic.Count - 1 Step 1

                        If currChar = arrArabic(H) Then

                            If strFinal.Trim = "" Then

                                strFinal = arrEnglish(H)

                            Else

                                strFinal &= arrEnglish(H)

                            End If

                        End If

                    Next

                End If

            Next

            strFinal &= " "

        Next

        Return strFinal

        arrEnglish = Nothing

        arrArabic = Nothing

        arrSource = Nothing

        strFinal = Nothing

    End Function

    Private Function isArabicChar(ByVal ccChar As Char) As Boolean

        Const AllChars As String = "Ô|áÇ|Ä|í|Ë|È|á|Ç|å|Ê|ä|ã|É|ì|Î|Í|Ö|Þ|Ó|Ý|Ú|Ñ|Õ|Á|Û|Æ|Ï|Ì|Ø|ß|Ù|Ò|æ|Ð"

        Dim arrChars() As String = Split(AllChars, "|")

        For I As Integer = 0 To arrChars.Count - 1 Step 1

            If ccChar = arrChars(I) Then

                Return True

                Exit Function

            End If

        Next

        Return False

        arrChars = Nothing

    End Function