Function Teile(T as string) as currency
  Dim Divisor as Currency
  Dim Divident as Currency
  Dim A as Variant
  A = split(T,"/")
  Divisor = CCur(A(0))
  Divident = CCur(a(1))
  Teile=Divisor/Divident
End function
 
ComboBox.Text="1/2"
Ergebniss=Teile(ComboBox.Text) :'Ergebniss ist ein Currency-Wert, also so mit 
' DIM definieren.

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)