CSV import going haywire

Dim session As New NotesSession
	Dim db As NotesDatabase
	Set db = session.CurrentDatabase
	'Set view = db.GetView("Process")
	'Dim dc As NotesDocumentCollection
	'Set dc = view.Getalldocumentsbykey("New")
	'Call dc.StampAll("Status", "Output")
	Dim uiws As New NotesUIWorkspace
	Dim fileCSV As Variant
	'Declare variables to hold data
	
	Dim counter As Integer
	Dim doc As NotesDocument
	counter =0
	'setup file number
	filenum% = Freefile()
	'Ask user for file location	
	fileCSV =  uiws.OpenFileDialog(False, "Choose the CSV file","*.txt" ,"c:\pub")
	'If the user chose a file then process
	If Not Isempty(fileCSV ) Then
		Open fileCSV(0) For Input As filenum%
		Do Until Eof(filenum%)
			'Read a line of data
			Input #filenum%, REF_NUM ,CUSTOMER_REF , CARD_TYPE , STATUS , AUTH_NO , REGISTER_DATE , REGISTER_TIME , EXPIRY_DATE ,  GATEWAY , MERCHANT_CODE , TAG  ,  AMOUNT , PLACEHOLDER, PLACEHOLDER2, CARD_NUM , TRANSACTION_NAME 
			
			
			
			'Check to see if there is still a header row
			If STATUS= "STATUS" Then 
				
			Else
				'Create Notes document and write values to it
				Set doc = db.CreateDocument
				
				
				With doc
					.form = "Person"
					
					.MERCHANT_CODE = MERCHANT_CODE
					.GATEWAY = GATEWAY
					OrderDate = Cdat(REGISTER_DATE+ " " +REGISTER_TIME)		
					
					Msgbox "You imported " & counter & " records."
					.OrderDate = OrderDate
					.TAG = TAG
					.AUTH_NO = 	AUTH_NO
					.STATUS = STATUS
					.TRANSACTION_NAME = TRANSACTION_NAME
					If Trim(TRANSACTION_NAME) = "Refund" Then
						.AMOUNTDUE = 0 - Cstr(Strright ( AMOUNT, "$"))
					Else						
						.AMOUNTDUE = Cstr(Strright ( AMOUNT, "$"))
					End If
					
					.CreditCardType = CARD_TYPE
					.CreditCard = CARD_NUM
					.ExpDate = EXPIRY_DATE
					.CreditCardComments = REF_NUM
					.Status = "New"
				End With
			'save document
				Call doc.save(False, False)
          'The next two lines of code call up the document again and force a refresh of all computed fields as well as any validations.  
          'Not quite how it is documented in help ...but it works.
				Call doc.computewithform(True,False)
				Call doc.save(True,False)
				counter = counter +1
			End If
		Loop
		Msgbox "You imported " & counter & " records."