This code shows how to pass in a swipe string from a Keyboard Emulation (KBE) swiper to the BluePay gateway in the SWIPE field in place of values for the card number and expiration date.

You can test for both outcomes:

Approved: When you pass odd dollar amounts, payment authorizations are returned with an 'Approved' status and authorization information is also captured.
Declined: When you pass even dollar amounts, payment authorizations are returned with a 'Declined' status and no authorization information is passed.

The following sample code calls a routine from our Code Library.
Download BluePay.vb
Or, download via GitHub

' Bluepay VB.NET Sample code.
' This code sample runs a $3.00 sales transaction using the payment information obtained from a credit card swipe.
' If using TEST mode, odd dollar amounts will return an approval and even dollar amounts will return a decline.

Imports System
Imports vbnet.BPVB

Namespace Transactions

    Public Class Swipe

        Public Shared Sub run()

            Dim accountID As String = "Merchant's Account ID Here"
            Dim secretKey As String = "Merchant's Secret Key Here"
            Dim mode As String = "TEST"

            Dim payment As BluePay = New BluePay(

                address1:="123 Test St.",
                address2:="Apt #500",
                email:="[email protected]"

            ' Set payment information for a swiped credit card transaction



            If payment.isSuccessfulTransaction() Then
                Console.Write("Transaction Status: " + payment.getStatus() + Environment.NewLine)
                Console.Write("Transaction Message: " + payment.getMessage() + Environment.NewLine)
                Console.Write("Transaction ID: " + payment.getTransID() + Environment.NewLine)
                Console.Write("AVS Result: " + payment.getAVS() + Environment.NewLine)
                Console.Write("CVV2 Result: " + payment.getCVV2() + Environment.NewLine)
                Console.Write("Masked Payment Account: " + payment.getMaskedPaymentAccount() + Environment.NewLine)
                Console.Write("Card Type: " + payment.getCardType() + Environment.NewLine)
                Console.Write("Authorization Code: " + payment.getAuthCode() + Environment.NewLine)
                Console.Write("Transaction Error: " + payment.getMessage() + Environment.NewLine)
            End If
        End Sub
    End Class
End Namespace
Can’t find what you’re
looking for? We can help.

Contact 800-350-2684 for Integration Support.

  • Microsoft Gold Partner Badge
  • 2018 American Business Awards Gold Stevie® Winner Badge for Best Payment and Electronic Commerce Solution
  • 2018 CNP Awards Customer Choice Winner Badge for Best E-Commerce Platform/Gateway
  • Best in Biz Awards 2018 Silver Winner Badge for Business Development Department of the Year
  • TSG Gateway Awards 2019 BluePay
BluePay Processing, LLC is a registered ISO of Wells Fargo Bank, N.A., Concord, CA, 94524 U.S.A.
BluePay Canada ULC, is a Registered ISO/MSP of Peoples Trust Company, Vancouver, Canada.