Func checkBSN(number)
	If len(number) <> 9 Then
		checkBSN = False
	Else
		Dim total as Integer
		Integer = 0
		For i = 1 to 8
			total = total + int(mid(number,i,1))*(10-i)
		Next i
		Total = total + -1*int(mid(number,9,1))
		If Total mod 11 = 0 Then
			checkBSN = True
		Else
			checkBSN = False
		End if
	End if
End Func