[asemshahen5]

ضع هذا في موديول :

PHP كود :

   Public Function ribfunc(TextBoxXT As String) As String
        Try
            Dim x, y, RIB As String
            x = ((Val(TextBoxXT) * 100 Mod 97)) + 85
            If (x > 97) Then
                y = x - 97
                RIB = Format(97 - y, "00")
                Return RIB
            Else
                y = x
                RIB = Format(97 - y, "00")
                Return RIB
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return Nothing
        End Try
    End Function 


طريقة الاستخدام :

PHP كود :

TextBox2.Text = ribfunc(TextBox1.Text)