[Kamil]

جرب هذا الكود

PHP كود :

Sub Main()
    Dim Id As String = "A072D7BE"

    ' الحصول على الجزء الأخير من النص (الحرفين الأخيرين)
    Dim lastTwoCharacters As String = Id.Substring(Id.Length - 2)

    ' إزالة الحرفين الأخيرين من النص الأصلي
    Dim restOfText As String = Id.Substring(0, Id.Length - 2)

    ' الجزء المراد بعد الإضافة
    Dim finalText As String = lastTwoCharacters & restOfText

    MsgBox(finalText)
End Sub