Private Sub Command1_Click()
Dim Adic, Subt, Mult, Div, Result As Currency
Adic = 10.46  'ponto . para decimal e virgula , para milhar
Subt = 5.5
Mult = 2.25
Div = 3

'adicao
   Result = Adic + Subt + Mult + Div
      MsgBox Result
        Result = 0
       
 'subtracao
    Result = Adic - Mult
      MsgBox Result
        Result = 0
       
 'multiplicacao
      Result = Adic * Mult
      MsgBox Result
        Result = 0
  'divisão
      Result = (Adic + Subt) / Div 'cuidado para nao dividir por 0
      MsgBox Result
        Result = 0
End Sub