Can somone run this code for me and tell me what you think! Thanks!!
Option Explicit
Private Price1 As String, Price2 As String, Price3 As String
Dim pizzaCost As Currency
Dim TotalFrenchFryCost As Currency
Dim TotalDrinkCost As Currency
Dim GrandTotal As Currency
Private Sub Quantity()
List1.AddItem ""
List1.AddItem "Item Quantity Price"
List1.AddItem "pizza slices " & Val(Text1.Text) & " " & pizzaCost
List1.AddItem "fries " & Val(Text2.Text) & " " & TotalFrenchFryCost & ".00"
List1.AddItem "soft drinks " & Val(Text3.Text) & " " & TotalDrinkCost
List1.AddItem " " & "--------"
List1.AddItem "Total" & " " & "$" & GrandTotal
End Sub
Private Sub CostCal()
'Find Total Cost of Items
Price1 = 1.75
Price2 = 1#
Price3 = 0.75
pizzaCost = Val(Text1.Text) * Price1
TotalFrenchFryCost = Val(Text2.Text) * Price2
TotalDrinkCost = Val(Text3.Text) * Price3
GrandTotal = pizzaCost + TotalFrenchFryCost + TotalDrinkCost
End Sub
Private Sub cmdClick_Click()
CostCal
Quantity
End Sub
__________________
