Hi
I am new to vb.net

Code:
TYPE stocktable
    descript AS STRING * 24
    PRICE AS STRING * 7
    category AS STRING * 1
    taxtype AS STRING * 1
    piecessold AS LONG '4
    valuesold AS LONG '4
    vendorid AS STRING * 1
    inventorycount AS STRING * 4
    STOCKNUMBER AS STRING * 18
    cost AS LONG '4
    model AS LONG '4
    pack AS LONG '4
    vendorstock AS STRING * 30
    saleprice AS LONG '3
    junk AS STRING * 10
END TYPE
 
DIM SL#(60, 4)
'A#(X,4) = rec.PRICE
INPUT A#
Y = 1
'IF KeyAscii = 13 THEN
DIM STOCKNUMBER AS STRING
OPEN "c:\pos\bob.tbl" FOR RANDOM AS #1 LEN = 120
FOR X% = 2 TO 13001
    GET #1, X%, rec
    IF VAL(STOCKNUMBER) = A# THEN A#(Y, 4) = VAL(PRICE)
    END IF
NEXT X%
CLOSE #1
END IF
PRINT A#(Y, 4)
 
'Now for each line of the sale put the description in SL$(X)
'Pieces in SL@(X,2)
'Tax rate in SL@(X,3)
'Price in SL@(X,4)
'PRICE% is shorter that intPrice
'IF VAL(STOCKNUMBER) = A# THEN A#(X,4) = PRICE
END IF