Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #72.7K
 | Public Sub ValidateID(ByVal IDno As String) Dim a As Integer = 0 For i As Integer = 0 To 5 a += CInt(ID.Substring(i * 2, 1)) Next Dim b As Integer = 0 For i As Integer = 0 To 5 b = b * 10 + CInt(ID.Substring(2 * i … |