Talk About Index


Function ISBN(ByVal Number As String) As String

Dum i, total, checkDigit As Integer

For i = 0 to 8

Total=Total=(10-i) * Number.SubString(i,1)

Next i

CheckDigit=11-(Total Mod 11)

ISBN=Number & CheckDigit

ISBN=Microsoft.VisualBasic.Format(Val(ISBN),”###-###-###-#”)

End Function

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s