Procedure der udregner momsbeløb på angivet varepris
HejJeg vil gerne lave en inputbox, hvor jeg noterer en vares pris. Herefter skal en Messagebox fortælle hvad momsen er.
Jeg er ikke helt med. Har forsøgt mig med koden nedenfor, men kan ikke helt finde ud af, hvordan jeg får værdien jeg indtaster i min inputbox ned, således at jeg kan gange det med min momssats...
Håber der er nogen der kan give et hint, så jeg kommer videre ...
Her er koden, hvor jeg har prøvet at lave en variabel, der fanger indholdet af InputBox, men hvordan jeg præcist bevæger mig videre herfra, det er spørgsmålet.. :
-----------------------------------------
Public Sub MomsBeløb()
InputBox "Indtast købsprisen"
Dim iBeløb As Integer
Const MOMS As Integer = 25
MOMS = InputBox()
MsgBox
End Sub
------------------------------
Mvh
Regin
