Remove Extra Zeros from Text

[skaswani]

Dear All,

i want to know how can i remove 0000s from a text

EG :

Text || Desired Result
--------- ----------------------

HMC007 || HMC7
MC00070 || MC70

Function GETALPHANUMERIC(text)

str_all = "abcdefghijklmnopqrstuvwxyz1234567890"
For lenstr = 1 To Len(text)
    If InStr(str_all, LCase(Mid(text, lenstr, 1))) Then
        GETALPHANUMERIC = GETALPHANUMERIC & Mid(text, lenstr, 1)
    End If
Next

End Function

I am Using Excel 2007 - VBA Code

Thanks