SpamSumMBS.Match(sum1 as string, sum2 as string) as Integer

dim s as SpamSumMBS
dim t1,t2 as string

s=new SpamSumMBS

t1=S.Spamsum("Hello Welt, wie geht es? Mir geht es manchmal gut.",0,0)
t2=S.Spamsum("Hallo Welt, wie geht es? Mir geht es manchmal gut.",0,0)

MsgBox t1+" "+t2+" "+str(s.Match(t1,t2))
// 17 percent here. This needs longer texts...

Returns a value from 0 (not equal) to 100 (equal).

SpamSumMBS.Spamsum(text as string, flags as Integer, blocksize as Integer) as string

You can specify for flags a combination of FlagsIgnoreWhitespace=1 and FlagsIgnoreHeaders=2.
Blocksize is linked to the length of the checksum. You can try values like 0, 3 or 90 and check what is best for you.
The text strings must be longer than just a few words as they are designed to take whole emails.