[abubasilIraq]

كود :

Function ribfunc (RIB) as string
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")
          Else
              y = x
              RiB = Format(97 - y, "00")
          End If
      Catch ex As Exception
          MessageBox.Show(ex.Message)
      End Try

End function