also, wenn Du auf Deiner Form nur zwei Textboxen hast und keinen CommandButton komme ich mit der OK-Taste leider nicht weiter. Ich habe nichts gefunden, wie ich das umsetzen kann (vielleicht weiß es ja jemand anderer). Ich kann Dir nur folgende Lösung anbieten:

Du hast also Text1 und Text2 auf der Form platziert. Dann benötigst Du noch diesen Code:

Private Sub Text2_GotFocus()
    <font color=green>'In Textbox den Wert in Euro aus Text 1 umrechnen</font>
    Text2.Text = Format(Val(Text1.Text) / 1.95583, "#,##0.00")
End Sub
 
Private Sub Text1_GotFocus()
    Text1.Text = ""         <font color=green>'Inhalt löschen</font>
    Text2.Text = ""         <font color=green>'Inhalt löschen</font>
End Sub

Das Ganze wird dann mit der TAB-Taste ausgelöst. Um zu verhindern, dass etwas anderes als Zahlen eingegeben werden, kannst Du noch für beide Textboxen folgenden Code hinterlegen:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 8, 44, 48 To 57   <font color=green>'von 0 bis 9, Komma und 
        ' Backspace
            'Nichts passiert</font>
        Case Else
            KeyAscii = 0 <font color=green>'Keine Sonderzeichen und Buchstaben 
            ' zulassen</font>
    End Select
End Sub

Ich hoffe, das hilft Dir etwas weiter.