Private Sub Command1_Click()
 
Dim DM As Double
If Len(txtwährung.Text) = 0 Then
    MsgBox Prompt:="Bitte einen Wert eingeben"
    txtwährung.SetFocus
Else
  DM = CCur(txtwährung.Text)
end if
'Berechnen der Währung DM
If cboländer.ListIndex = -1 Then
     DM = DM / 1.9853
     txteuro.Text = DM
End If
End Sub