Ah yes multiple commands
My favorite.
I use a Pipe to separate them. but they appear to the program as one long string
Say you pass Invoice Number and Date and Amount
Public Function GetCommands(info)
'33455|02/12/01|45.67 Also for testing this I passed a parameter in info
Dim Mystuff As String
Dim FirstPipe, SecondPipe As Integer
‘ Dim PassedInvoice, PasedAmount, PassedDate As String
Mystuff = Command
'Mystuff = info
FirstPipe = InStr(1, Mystuff, "|"

SecondPipe = InStr(FirstPipe + 1, Mystuff, "|"

‘ you can make these Global variables
PassedInvoice = Left(Mystuff, FirstPipe - 1)
PassedDate = Mid(Mystuff, FirstPipe + 1, SecondPipe - FirstPipe - 1)
PasedAmount = Right(Mystuff, Len(Mystuff) - SecondPipe)
End Function
DougP, MCP
Visit my WEB site
to see how Bar-codes can help you be more productive