[ahmedfa71]

السلام عليكم تم إيجاد الحل

كود :

Try
           Dim x, y, RiB As String
           x = ((Val(TextBox1.Text) * 100 Mod 97)) + 85
           If (x > 97) Then
               y = x - 97
               RiB = Format(97 - y, "00")
               TextBox3.Text = RiB
           Else
               y = x
               RiB = Format(97 - y, "00")
               TextBox3.Text = RiB
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try

هل هنالك إمكانية تحويله إلى دالة
وبارك الله فيكم