Something similar to the following will probably do the trick

Code:
Dim myStr As String
Dim myStrArray() as String

Do Until EOF(#1)
  Line Input #1 , myStr
  myStrArray = Split(myStr, ",")
  putRecords
Loop

Private Sub PutRecords()
  
  'Make sure all the records exist. If the last two are missing this will give you an empty string in each.
  ReDim Preserve myStrArray(15) As String

  pstrIO = myStrArray(0)
  pstrPCMSid = myStrArray(1)
  pstrForeignSid = myStrArray(2)
  pstrDelete1 = myStrArray(3)
  pstrDelete2 = myStrArray(4)
  pstrCalls = myStrArray(5)
  pcurAirDollars = myStrArray(6)
  pcurTax1 = myStrArray(7)
  pcurTax2 = myStrArray(8)
  pcurSurDollars = myStrArray(9)
  pcurTollDollars = myStrArray(10)
  curTotalDollars = myStrArray(11)
  pstrSurcharges = myStrArray(12)
  pstrNS = myStrArray(13)
  pstrDelete3 = myStrArray(14)
  pstrAirMou  = myStrArray(15)

End Sub
[Edited by Iain17 on 04-26-2000 at 04:44 PM]