Functions

Public Function MySum(a As Integer, b As Integer)

Result = a + b

MySum = Result

End Function

*Function place in module

checksum for iban

Function Iban()

nr = "175000094790980919624099"

x = 98 - CLng(CStr(CLng(CStr((CLng(CStr(CLng(CStr(CLng(Left(nr, 5)) Mod 97) & Mid(nr, 6, 5)) Mod 97) & Mid(nr, 11, 7)) Mod 97) & Right(nr, 7)) Mod 97) & "252100")) Mod 97

Iban = x

Debug.Print x

End Function