Public Function ToCurr(ByVal vZahl As Variant) As Currency
 
  On Error Resume Next
  ToCurr = CCur(vZahl)
 
End Function

Ich fange gerade an mit VB also nicht b?se sein wenn ich dumme Fragen an Euch Experten stelle. Danke