آموزش ASP.NET 2

Private Function IsValidMelliCode(ByVal melliCode As String)
Try

melliCode = melliCode.Replace("-", "")
Dim pos As Integer = 10
Dim sum As Integer = 0

For i = 0 To 8
  sum += Integer.Parse(melliCode.ToCharArray()(i).ToString()) * pos
  pos = pos - 1
Next i

Dim remind As Integer = sum Mod 11
Dim controlNum As Integer = Integer.Parse(melliCode.ToCharArray()(9))

If remind <= 2 Then
    If controlNum = remind Then
              Return True
     Else
              Return False
     End If
Else
     If (11 - remind) = controlNum Then
          Return True
      Else
          Return False
     End If
End If
Catch ex As Exception
    Throw ex
End Try
End Function