On 14 Jan 2005 at 16:03, Thomas Bandt wrote: > Dim ErgebnisOhneNull > If Left(Zahl,1) = 0 Then > For i=1 To 3 > If Mid(Ergebnis,i) <> 0 Then > ErgebnisOhneNull = ErgebnisOhneNull & > Mid(Ergebnis,i) > End If > Next > Else > ErgebnisOhneNull = Ergebnis > End If ErgebnisOhneNull = CStr(CLng(Ergebnis)) Marcus