Imports System

imports Microsoft.VisualBasic

​

Public Module Module1

    Public Sub Main()

        '##################### Change the 4 digit code #####################

        Dim FourDigitCode as string = "0612"

        'February Master Codes

        '$10 off $50 is 9219 - Not in use

        '$15 off $75 is 9358 - Not in use

        '$20 off $100 is 9383 - Not in use

        '$40 off $200 is 9389 - Not in use

        '$60 off $400 is 9395 - Not in use

        '10% off is 0612

        '###################################################################

         For i As Integer = 1 To 10

        Dim num As String = CInt(Math.Ceiling(Rnd() * 9998)) + 1

            num = num.PadLeft(4, "0")

            Dim num2 As Integer = CInt(Math.Ceiling(Rnd() * 4)) + 1

​

        Dim bc = "50000" & num2 & num & FourDigitCode

        Console.WriteLine("Coupon: " & bc & Mod10CheckDigit(bc))

    Next

    End Sub

        Public Function Mod10CheckDigit(Barcode As String) As Integer

        Dim i As Integer

        Dim TotalOdd As Integer

        Dim TotalEven As Integer

        Dim Total As Integer

        Barcode = Trim(Barcode)

        'get odd numbers

​

        For i = 1 To Len(Barcode) Step 2

            TotalOdd = TotalOdd + (CInt(Mid(Barcode, i, 1)) * 1)

        Next i

        '  TotalOdd = TotalOdd * 3

​

        'get even numbers

        i = 0

        For i = 2 To Len(Barcode) Step 2

            TotalEven = TotalEven + (CInt(Mid(Barcode, i, 1)) * 3)

        Next i

​

        Total = TotalOdd + TotalEven

        Dim t2 = Total Mod 10

        Mod10CheckDigit = 10 - IIf(Microsoft.VisualBasic.Right(Total, 1) = 0, 10, _

              Microsoft.VisualBasic.Right(Total, 1))

​

​

    End Function

End Module