Inanzitutto grazie mille

ho provato ad adattare il tuo codice alle mie esegenze ma non va (sicuramente ho sbagliato io)

mi da errore di compilazione

codice:
Private Sub Option2_Click()
    Dim euro As Double
    Dim i, j, sw As Integer
    prezzo.Caption = ""
    euro = prezzo / 1936.27
    For i = 1 To Len(euro)
        prezzo = prezzo & Mid(euro, i, 1)
        If Mid(euro, i, 1) = "," Then sw = 1
        If sw = 1 Then j = j + 1
        If j = 3 Then Exit For
    Next i
    If Right(prezzo, 3) = ",00" Then prezzo = Replace(prezzo, ",00", "")
End Sub
lo adattato bene??

:bubu: