Random springer sidste værdi over

Jeg har nedenstående funktion til at hente noget tilfældigt indhold til mig, men den springer altid den sidste post over (nummer 4), kan du hjælpe mig her ?


    Dim strRandomArticle,myVariable,myArray,i,lrandom
    myVariable = "1,2,3,4"
    myArray = Split(myVariable,",")
    For i = LBound(myArray) TO UBound(myArray)
        ' Lav et tilfældigt udtræk i arrayet
        randomize
        lrandom = int(rnd*UBound(myArray))
        'Hent relevant artikel
        objContent.ArticleID = myArray(lrandom)
        objContent.getContent(rs)
        if NOT (rs.BOF AND rs.EOF) Then
            strRandomArticle = rs("bodytext")
        end if
        rs.Close
    Next