'Record item name in worksheet and select next cell.
    Dim sItem As String
    sItem = txtItem.Text
    'ActiveCell.Value = 
    
    'Record quantity in worksheet and select next cell.
    Dim iQuantity As Integer
    iQuantity = txtQuantity.Text
    'ActiveCell.Value = 
    'ActiveCell.Offset
    
    'Record price in worksheet and select next cell.
    Dim dPrice As Double
    dPrice = txtPrice.Text
    'ActiveCell.Value = 
    'ActiveCell.Offset
    
    'Record quantity*price in worksheet and select
    'cell in start of next cell.
    'ActiveCell.Value = 
    'ActiveCell.Offset
    
    'Clear textboxes on form.
    txtItem.Text = ""
    txtQuantity.Text = ""
    txtPrice.Text = ""