Does the text string contain numbers after the leading zeros?
=Val("0005670")
returns 5670 as a number.
=Val("000ABC")
returns 0.

If its a text string you have to search:

Public Sub RunMe()

 Dim strValue As String
 Dim strNewValue As String

 strValue = "000A1B2C300"

 strNewValue = RemoveLeadingZeros(strValue)

 MsgBox Prompt:="The string without leading zeros is: " & strNewValue

End Sub

Public Function RemoveLeadingZeros( _
 ByVal strValue) As String

 ' Test if there is at least 1 leading zero
 If Left(strValue, 1) = "0" Then

   Do While True 'fContinue 'And (intPosition <= intLen)

     If Mid(strValue, 1, 1) = "0" Then
       strValue = Replace(strValue, "0", "", 1, 1, vbTextCompare)
     Else
       ' reached the first non-zero string
       Exit Do
     End If

   Loop

 Else
   ' Does not have a leading zero
 End If

 RemoveLeadingZeros = strValue

End Function

HTH

Rob Mastrostefano

If it's numeric, use Val([fieldname]), or CStr(Val([fieldname])) to
get back to a string.

If it's text, or mixed numeric and text, after the zeros, you'll need
a little VBA function. Here's a recursive one off the top of my head,
test it first:

Public Function StripZeros(strIn As String) As String
If Left(strIn, 1) = "0" And Len(strIn) > 1 Then
  StripZeros = StripZeros(Mid(strIn, 2))
Else
  StripZeros = strIn
End If
End Sub

                 John W. Vinson[MVP]