The text box will contain string data type ex. 0123454906 (10 digits)
I have tryed to do the folowing
Public Function Modulus11(ByVal DigitType As Byte, ByVal txtISBN As String) As String
Dim tmpNumber, NewNumber, A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, Asum, Bsum, Csum, Dsum, Esum
tmpNumber =...