Private Sub Command1_Click()
  Dim nNetto As Currency
  Dim nMWSt As Currency
  Dim nBrutto As Currency
  Dim nVK As Currency
 
  ' Nettopreis
  nNetto = CCur(Text1.Text)
 
  ' MWSt berechnen, z.B. 16%
  nMWSt = nNetto / 16
 
  ' Bruttopreis
  nBrutto = nNetto * 1.16
 
  ' empfohlener VK, z.B. + 20%
  nVK = nBrutto * 1.2
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de