אימות ספרת ביקורת

Function VIDNumber(str)
    Dim iIDLength : iIDLength = len(str)
    Dim i
    Dim sID : sID = str
    
    If iIDLength < 9 Then
        For i=1 To 9 – iIDLength
            sID = "0" + sID        
        Next
    End If
    
    Dim iCount : iCount = 0
    Dim iCurrent
    Dim iTemp
    Dim iMul
        
    For i=1 To 9
        If ((i Mod 2) = 0) Then
            iMul = 2
        Else
            iMul = 1
        End If
        Temp =  Cint(Mid(sID,i,1)) * iMul
        If Temp > 9 Then
            Temp = 1 + (Temp Mod 10)
        End If
        iCount = iCount + Temp
    Next
    
    VIDNumber = (iCount Mod 10 = 0)
End Function

dim num
num = "42"
alert(VIDNumber(num))