Doesn't the Replace function replace all the "0"s (0001-010-010)?
Yet a third solution:
Function fncDelZeros(fld As String) As String
While InStr(1, fld, "-0") > 0
fld = Left(fld, InStr(1, fld, "-0")) & _
Mid(fld, InStr(1, fld, "-0") + 2)
Wend
fncDelZeros...