I've gotten further along. I study on my own at home, now I am having trouble seeing why I cannot get my Function to pull into my program.

Option Explicit

Private Sub cmdCompute_Click()
'request order and calculate bill
Dim pizza As Single, fries As Single, sftdrks As Single, _
fmt As String, totPizza As Single, totFries As Single, _
totDrink As Single, totDue As Single, tp As Single, tf As Single, _
td As Single, a As Single, b As Single, c As Single

Call InputOrder(pizza, fries, sftdrks)
Call DisplayBill(fmt, totPizza, totFries, totDrink, Due, _ pizza, fries, sftdrks, tp, tf, td, a, b, c)
End Sub

Private Sub InputOrder(pizza As Single, fries As Single, _
sftdrks As Single)
'get the order
pizza = Val(txtPizza.Text)
fries = Val(txtFries.Text)
sftdrks = Val(txtDrink.Text)
End Sub

Private Sub DisplayBill(fmt As String, totPizza As Single, _
totFries As Single, totDrink As Single, totDue As Single, _
pizza As Single, fries As Single, sftdrks As Single, tp As Single, _
tf As Single, td As Single, a As Single, b As Single, c As Single)
'display order and amt due
picOutput.Cls
picOutput.FontBold = True
fmt = "@@@@@@@"
tp = FormatCurrency(totPizza)
tf = FormatCurrency(totFries)
td = FormatCurrency(totDrink)
totDue = FormatCurrency(totDue)
picOutput.Print "Item"; Tab(17); "Quantity"; Tab(40); "Price"
picOutput.Print
picOutput.FontBold = False
picOutput.Print "pizza slices"; Tab(17); pizza; Tab(40);
picOutput.Print Format(tp, fmt)
picOutput.Print "fries"; Tab(17); fries; Tab(40); Format(tf, fmt)
picOutput.Print "soft drinks"; Tab(12); Format(sftdrks, fmt); Tab(40);
picOutput.Print Format(td, fmt)
picOutput.Print
picOutput.FontBold = True
picOutput.Print "Total"; Tab(35); Format(td, fmt)
End Sub

Private Function totPizza(a As Single, pizza As Single) As Single
a = 1.25
totPizza = a * pizza
End Function

Private Function totFries(b As Single, fries As Single) As Single
b = 1
totFries = b * fries
End Function

Private Function totDrink(c As Single, sftdrks As Single) As Single
c = 0.75
totDrink = c * sftdrks
End Function

Private Function totDue(totPizza As Single, totFries As Single, _
totDrink As Single) As Single
totDue = totPizza + totFries + totDrink
End Function

Private Sub cmdExit_Click()
End
End Sub