BASIC Funktionen zur Ermittlung z.B. Gesamtpreis und Mehrwertsteuer

REM  *****  BASIC  *****
Public Function GPreis(Stuck, EP)
if Stuck > 0 then
          GPreis = EP * Stuck
          else
          GPreis =CVErr(xlErrValue)
          End If
          End Function
         
Sub Main

End Sub
Public Function MWert(EP, STck, Proz, Rabatt, Versand)
MWert = ((EP * STck)+ Versand - (EP * STck /100 *Rabatt))/(100 + Proz)*Proz
End Function

Sub MWSt
Dim Proz
End Sub