Определить для последовательности чисел, сколько в ней следующее число больше предыдущего - VB

Private Sub Command1_Click()
Dim A(1 To 10) As Integer
Randomize
For I = 1 To 10
   A(I) = Int(Rnd * 10) + 1
   Print A(I);
Next
 
For I = 1 To 10
   If I > 1 Then
      If A(I) > A(I - 1) Then k = k + 1
   End If
Next
Print
Print "Кол-во равно: " & k
End Sub