Public Function zweiNummernMultiplizieren(one As Decimal, two As Decimal) _
      As Decimal
        Return one * two
    End Function

    Dim euroWert As Decimal = 1
    Dim kurs As Decimal = 1.2983D
 
    dim dollarWert As Decimal = zweiNummernMultiplizieren(euroWert, kurs)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist