Как подсчитать количество элементов ai, которые не меньше всех предыдущих элементов массива - VB

Private Sub Command1_Click()
Dim a(1 To 10)
For i = 1 To 10
 a(i) = Int(Rnd(1) * 10)
 Print a(i);
Next i
Print
 
k = 0
For i = 2 To 10
 For j = 1 To i - 1
  If a(i) >= a(j) Then
   k = k + 1
   Exit For
  End If
 Next j
Next i
Print k
 
 
End Sub