Finde og bruge sidste post i array

Hej.

Jeg har følgende script:
str1 = rs("Punkt_ID")
arr1 = Split(str1 ,",")

StrPunkter = "Select * from Punkter Where"
For a = LBound(arr1 ) to UBound(arr1 )
StrPunkter = StrPunkter & " ID = "&arr1 (a)
if arr1 (a) = UBound(arr1 ) then
    StrPunkter = StrPunkter
    else
    StrPunkter = StrPunkter & " OR"
end if
next
set rsPunkt = Conn.Execute(StrPunkter )

Idéen med

if arr1(a) = UBound(arr1 ) then
    StrPunkter = StrPunkter
    else
    StrPunkter = StrPunkter & " OR"
end if

er at hvis løkken er nået til enden af arrayet, skal der ikke noget OR med i strengen, ellers skal der et OR med. Men det virker ikke...
(Nogle gange indeholder rs("Punkt_ID") kun et tal, andre gang flere, adskilt af et komma. Feltet Punkt_ID er et "tekst"-felt.)
What to do?

/kkd