Dim name
Dim food
Dim typeoffood
Dim taxrate
Dim tax
Dim subtotal
Dim total

MsgBox "Welcome to the Desktop Cafe by RabidCentipede!"
name = InputBox("Hi! What is your name?", "Question by cafe worker")
food = InputBox("What would you like to order, " & name & "?", "Asking for order")
MsgBox "Mmmm... I love " & food & " too!"
On Error Resume Next
subtotal = InputBox("How much are you paying? (numerical values only please)", "Asking for cost")
If IsNumeric(subtotal) Then
    
    MsgBox "Thank You!"
  Else
    MsgBox "Sorry. That was not a number."
  End If
taxrate = .075
tax = subtotal*taxrate
total = tax + subtotal
MsgBox "Your total is $" & total & ", including tax."
MsgBox "Thank you! Have a nice day!"