Originariamente inviato da Johnny_Depp
Scusa ma non ho capito
10000 LIRE = 1.0 EURO

cmq prova questo:
codice:
Private Sub Command1_Click()
    Dim euro As Double
    euro = Round((txt_lire.Text / 1936.27), 2)
    Lbl_euro.Caption = euro
End Sub
emm..ho sbagliato a scrivere :tongue:

il tuo codice va quasi bene, fino a che la cifra da convertire non è ad esempio 150.000.000 infatti in questo caso lui scrive: 77468,53

ti spiego maglio

io ho messo in una form un campo di testo e due option ed ho associato questo codice

codice:
Private Sub Option1_Click()
If Option1 = True And prezzo <> "" Then
euro = prezzo * 1936.27
prezzo = euro
prezzo = Format(prezzo, "###,##0.00")
Else
MsgBox "INSERIRE PRIMA LA CIFRA NEL CAMPO PREZZO"
Option1 = False
End If
End Sub

Private Sub Option2_Click()
If Option2 = True And prezzo <> "" Then
Dim euro As Double
lire = Round((prezzo.Text / 1936.27), 2)
prezzo = lire
Else
MsgBox "INSERIRE PRIMA LA CIFRA NEL CAMPO PREZZO"
Option2 = False
End If
End Sub
adesso se scrivo il prezzo in euro cliccando sulla option1 lo trasforma in lire se invece clicco sulla option2 lo trasforma in euro (a parte il problema della formattazione)

ma se clicco prima su euro e poi nuovamente su lire non mi da lo stesso risultato, sicuramente per colpa degli arrotondamenti vero??

grazie mille spero che puoi aiutarmi