Microsoft VBScript runtime error '800a000d'

Type mismatch: 'UBound'

C:\INETPUB\WWWROOT\GEWINN\HOME\../lib/libQuotes.inc, line 25