Stammwert = 100:Zusatzwert = 54
Msgbox MeineFunktion(Stammwert, Zusatzwert)
'Oder direkt "Msgbox MeineFunktion(100, 54)"
Stammwert = 110:Zusatzwert = 22
Msgbox MeineFunktion(Stammwert, Zusatzwert)
'Oder direkt "Msgbox MeineFunktion(110, 22)"
Public Function MeineFunktion(byval Stammwert,byval Zusatzwert)
'Tuwas - z.B.:
MeineFunktion=Stammwert*Zusatzwert)
End function
|