Public Function gethz0(ByVal strScc As String) As String
Dim i As Integer
For i = 1 To Len(strScc)
gethz0 = gethz0 & Mid(strScc, Len(strScc) - i + 1, 1)
Next
End Function