Sub LireEuro()
' Converte in euro il valore selezionato

    Dim Alfa As Variant
    Selection = Selection & "/1936,27"
    Alfa = Format(Round(Selection.Calculate, 2), "##,##0.00")
    Selection.TypeText Alfa
End Sub

Sub EuroLire()
' Converte in lire il valore selezionato

	Dim Alfa As Variant
	Selection = Selection & "*1936,27"
	Alfa = Format(Round(Selection.Calculate, 0), "##,##0")
	Selection.TypeText Alfa
End Sub

Sub Calcolatrice()
' Acquisisce un’espressione aritmetica dall’operatore e sviluppa
' il calcolo collocando il risultato nel punto di inserimento.

On Error GoTo Errore:
	Dim Alfa As Variant, Beta As Variant
	Dim Gamma As Double

	Alfa = InputBox$("Inserire la formula da calcolare, " + _
	"servendosi degli operatori + - * /  ^ %. Per variare le " + _
	"precedenze usare le parentesi ", "Calcolatrice")
	Selection = Alfa
	Beta = Selection.Calculate
	Gamma = CDbl(Beta)
	If Gamma <> 0 Then
		Selection.TypeText Gamma
	End If

Exit Sub

Errore:
	If Err.Number = 6 Then
		MsgBox "Il risultato non č calcolabile"
	Else
		MsgBox Err.Number & "; " & Err.Description
	End If
End Sub