مطلوب كود يحول الرقم الى رقم عشري

اخي الفاضل / بوجهاد

هذه محاولة مني في المرفق

ارجو ان يكون طلبك

عدد_عشري.rar

السلام عليكم ورحمة الله وبركاته

الله يعطيك العافية أخي أبو شادي

أخي الكريم هذه طريقة أخرى ضع الكود التالي في حدث After_Update لمربع النص S

Dim x1 As String
    If IsNumeric(S) Then
        Select Case Len(S)
            Case Is > 2
                x1 = Left(S, Len(S) - 2) & "." & Right(S, 2)
            Case 2
                x1 = "0." & S
            Case 1
                x1 = "0.0" & S
        End Select
    Else
        x1 = "#Error"
    End If
    Me.B = x1

وبالتوفيق

السلام عليكم

اشكر الاخ أبو شادي و الاخ koao الله يعطيكم العافية على ما قدمتموه

لكن اجابة الاخ koao هي المطلوبة