'This code takes the selected item from a list box and breaks it up (parses it)

'FROM INTRO TO VARIABLES  (SEE LESSON 3 ON WEBSITE)


'The name of the product & the price is stored inside the list box as one long string as shown below.




Dog Food                                       13.54
Gold fish                                        1.50
Bird Seed                                        4.55
Cat Nip                                           2.45
Aligator(small)                             149.95
Aligator(large)                              255.89
Snake                                            109.39
Stuffed Aligator                             89.95



  '---take first 25 characters in the selected item and put it in the item textbox
        txtItem.Text = Trim(Microsoft.VisualBasic.Left(lstItems.SelectedItem, 20))


   '---now take the rest and put into price after we strip off any blank spaces
        txtPrice.Text = Trim(Mid(lstItems.SelectedItem, 26))