[sooriaty03]

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم

كود :

Dim Number As Double = 2541543.58
        ' للمئات
        MsgBox(Strings.Right(Math.Floor(Number / 100).ToString, 1))
        ' للعشرات
        MsgBox(Strings.Right(Math.Floor(Number / 10).ToString, 1))
        ' للآحاد
        MsgBox(Strings.Right(Math.Floor(Number).ToString, 1))

بالتوفيق