problema con sintassi while

[devil89]

Ciao a tutti, mi stà venendo il nervoso con questo linguaggio che non mi piace.

Mi dà errore su questo while...cosa sbaglio?

Do While bonus > temp
            x = Int(Rnd() * 600)
            
            If (aCaselle(x) = 0) Then
                aCaselle(x) = 1
                
            ' Incremento una variabile che indica il numero di bonus inseriti
            temp = temp + 1
Loop