Dim strBaseString As String strBaseString = "00022377690870055431000HGRT0410" Debug.Print Replace(strBaseString, "0", Chr$(216))
ØØØ2237769Ø87ØØ55431ØØØHGRTØ41Ø
Comment