Hash long string to short string. (s As String) As String Dim X As Long Dim crc As .