[ahmedfa71]

السلام عليكم أستعمل هذا الكود في حساب الريب للحساب البريدي لكنه في معظم الحالات غير شغال
مع العلم أن الريب مكون من رقمين

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Try
           Dim x, y, RiB As String
           x = (Val(TextBox1.Text) * 100 Mod 97) + 85
           If (x > 97) Then
               y = x - 97
               RiB = y
           Else
               y = x
               RiB = 97 - y
               TextBox3.Text = RiB
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub
End Class

الرجاء مساعدتي في تصحيحه