Select Case cmbFrom.SelectedIndex
            Case 0
                'Euro in Euro umrechnen
                lblErgebnis.Text = "Sie können nur in Euro umrechnen"
            Case 1
                'Deutsche Mark in Euro umrechnen
                Ergebnis = Math.Round(Betrag / DM, 2)
                lblErgebnis.Text = txtBetrag.Text & " DM sind " & "umgerechnet" & _
                  "" & Ergebnis.ToString() & " Euro."
            Case 2
                'Belgische Franc in Euro umrechnen
                Ergebnis = Math.Round(Betrag / BEF, 2)
                lblErgebnis.Text = txtBetrag.Text & " BEF sind " & "umgerechnet" & _
                  "" & Ergebnis.ToString() & " Euro."
            Case 3
                'Französische Franc in Euro umrechnen
                Ergebnis = Math.Round(Betrag / FRF, 2)
                lblErgebnis.Text = txtBetrag.Text & " FRF sind " & "umgerechnet" & _
                  "" & Ergebnis.ToString() & " Euro."
            Case 4
                'Östreichische Schilling in euro umrechnen
                Ergebnis = Math.Round(Betrag / ATS, 2)
                lblErgebnis.Text = txtBetrag.Text & " ATS sind " & "umgerechnet" & _
                  "" & Ergebnis.ToString() & " Euro."
        End Select

Ralf