'**-- checks for existance of characters in CharsString inside string BaseString
function StrIncludesChar(BaseString,CharsString)
 dim i 
 dim CharToCheck
 
  for i=1 to len (CharsString)
    CharToCheck = Mid(CharsString,i,1)
	if  InStr(BaseString , CharToCheck ) then 
		StrIncludesChar= CharToCheck		
		exit function
	end if 
  next
  
  StrIncludesChar=""
end function

Function CheckIdNumber(id)
dim i
dim leng
dim sum 
dim sum2
dim mul
dim addn
dim addNull
dim result

	if NOT(IsNumeric(ID)) THEN 
		CheckIdNumber=False
		EXIT Function
	end if
	leng = len(id) 'Length
	sum = 0 
	mul=1
	if (leng > 9) Then 
		CheckIdNumber=False
		exit Function
	end if

     'checking for leading zero 
	if (leng < 9 )AND (leng >4) Then 
			addNull=9-leng
			addn="0"
			for i=1 to addnull-1
					addn=addn & "0"
			next
			ID=addn & ID
			leng=len(ID)
	elseif leng <= 4 then
			CheckIdNumber=False
			exit Function
	end if

	'**-- algoritm CheckID Number
	For i = 1 To leng-1
			sum2=(mul*cint(Mid(ID, i, 1)))
			if sum2>9 then
				sum2=sum2-9
			end if
			sum=sum+sum2
			mul=3-mul
	Next
 
	sum=sum mod 10
	result=10-sum
	if result = 10 then
		result=0
	end if
 
	if cint(Mid(ID, leng, 1))=result then
			CheckIdNumber=True
	else 
			CheckIdNumber=False
	end if
End Function