15-bit Pearson hash function for LibreOffice Calc

hash.vb

' REM 15-bit Pearson Hash, because I can't figure out 32-bits for FNV-1a
Function Hash(strText as String) as Long
    Dim h As Long
    Dim nextChar As String
    Dim temp As Long
    Dim table(0 To 32767) as Long
    Dim seed as Long
    
    seed = 1
    h = len(strText) MOD 32768
    
    For i = 0 to 32767
  ' Shuffle the table with a Linear congruential generator.
    	seed = (5*seed + 16385) MOD 32768
    	table(i) = seed
    Next i
    
    For i = 1 To Len(strText)
        nextChar = Mid(strText, i, 1)
    	h = table(h XOR Asc(NextChar))
    Next i
    
    Hash = h
End Function