Заменить все отрицательные элементы нулями - VB

Private Sub Command1_Click()
Dim s As Double
Dim n As Double
Dim a() As Double
Dim i As Double
Cls
 
s = 20
's = InputBox("Введите количеcтво элементов массива")
Print "Первоначальный массив"
ReDim a(1 To s)
For i = 1 To s
    a(i) = Int(Rnd * 10 - 5)
   Print a(i);
Next
Print vbLf
Print "Получаемый массив"
For i = 1 To s
 
    If a(i) < 0 Then a(i) = 0
    
    Print a(i);
Next
 
End Sub