Module Temp
    Public Sub _BarcodePrint(ByVal TicketType As Integer, _
    ByVal BarcodeData As String, _
    ByVal AmountInWords As String, _
    ByVal AmountAsNumber As String, _
    ByVal MachineIdentity As String, _
    ByVal DatePrinted As String, _
    ByVal TimePrinted As String)

        Dim BarDat As String

        BarDat = BarcodeData


    End Sub

End Module
