Array, tilføj ikke ved sidste

StrKategori = Request.Form("kategori")
    ArrKategori = Split(strKategori, ",")
    For idx=LBound(ArrKategori) To UBound(ArrKategori)
   
        strSoegLoop = strSoegLoop & "katid = " & ArrKategori(idx)
        if  not ArrKategori(idx) = UBound(ArrKategori) then
            strSoegLoop = strSoegLoop & " OR "
        end if
   
    next


jeg har en array som skal fungere i en SQL sætning, men der skal IKKE være et OR efter sidste "post" i mit array, jeg har forsøgt således, men virker ikke..

Output er
and (katid = 49 OR katid = 15 OR katid = 14 OR )

og det sidste OR skal naturligvis væk.. men hvordan?