Hi all,
Thanks for your replies. Some guidelines will surely help me completing this database.
FYI the function that worked well for my issue was:
Public Function StripZeros(pstr As String) As String
Dim n As Integer
n = 1
Do While Mid(pstr, n, 1) = "0"
n = n + 1
Loop...