Here's what I want to do:
* I want to store 3 fields(Item#,Item Name,Unit Price) in a text file. The details should be read into three parallel arrays.

* I want to be able to read user input from the keyboard(i.e. not from a text file) using inputbox. The program should ask
CustomerName:
Item#:
Quantity:

* Finally the program should display something like the following:

Customer Name: Mr.Bla Bla
Item# | Quantity | Price |SubTotal
007 4 2.00 $8.00
010 1 4.00 $4.00

Total: $12.00

I think I need a while statement with a rouge here.
I'd like to tackle this with pure VB not active x. You know--just simple!

==========================================
Option Explicit
Dim fItemNumber(100) As Integer
Dim fItemName(100) As Integer
Dim fUnitPrice(1000) As Integer
Dim fNumRecs As Integer
Dim fCustomerName As String
Dim fQuantity As Integer

Private Sub cmdChoose_Click()

Dim i As Integer
i = 0

fCustomerName = InputBox("What's your name?")
fItemNumber = InputBox("What's the item number?")
fItemName = InputBox("What's the item name?")
fQuantity = InputBox("How much quantity do you need?")
Open "a:\list.txt" For Input As #1

While Not EOF(1)
i = i + 1
fItemNumber (i), fItemName(i), fUnitPrice(i)
Wend
Close #1
fNumRecs = i

End Sub

Private Sub cmdPrint_Click()
Dim i As Integer
Dim total As Single

For i = 1 To fNumRecs
Print fCustomerName(i), fItemNumber(i), fItemName(i), fUnitPrice(i),
Print fUnitPrice * fQuantity
Next i
End Sub
==========================================
need help/hints/comments or whatever.....anything appriciated!
===========================================

I'm getting there....any help is accepted
=================================================
Option Explicit
Dim fItemNumber(10) As Integer
Dim fItemName(10) As Integer
Dim fUnitPrice(10) As Single

Private Sub cmdChoose_Click()
Dim Customer As String
Dim i As Integer
Dim found As Integer
Dim itemNumber As Integer

i = 0
found = False
'fNumRecs = 1

Open "a:\list.txt" For Input As #1

While Not EOF(1)
i = i + 1
Input #1, fItemNumber(i), fItemName(i), fUnitPrice(i)
Close #1

Customer = InputBox("What's your name?")
Print
Print (Customer)
Print "=================================="

itemNumber = InputBox("What's the item number? (Choose 1-10 inclusive)")
While itemNumber -999
If itemNumber = fItemNumber(i) Then
found = True
Else
i = i + 1
End If
Wend
If found = True Then
Print fItemNumber(i), fItemName(i), fUnitPrice(i)
Else
Print "Item Not On Stock"
End If

Wend

End Sub
====================================
in my a:\list , i only have 10 records.
for eg.
1,"coke",1.00
2,"pepsi",1.00
3,"sprite",1.00
.
..
...
10,"dr.pepper",1,00
==============================
also,My while statement seems to be unending.
While itemNumber -999
If itemNumber = fItemNumber(i) Then
found = True
Else
i = i + 1
End If
wend

It prompts me subscript out of range.