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

Формулировка задачи:

Требуется: -создать массив из некоторого числа положительных и отрицательных чисел. (сделано) -заменить отрицательные числа массива нулями. Вот что есть на данный момент: -создаем массив

Private Sub CommandButton1_Click()
Dim x(20) As Integer
Dim n As Integer
 
For n = 1 To 15
x(n) = 100 - Int(Rnd * 200 + 1)
 Next n
 
TextBox1.Text = ""
For n = 1 To 15
TextBox1.Text = TextBox1.Text & x(n) & vbCrLf
Next n

-пытаемся его безуспешно модифицировать

Private Sub CommandButton2_Click()
Dim x(20) As Integer
Dim n As Integer
 
For n = 1 To 15
If x(n) > 0 Then
TextBox2.Text = TextBox2.Text & x(n) & Chr(13)
Else
TextBox2.Text = 0
Next n

MsgBox "Done!"

Пытался и этот цикл по другому написать, и do while использовать, все равно не получается.

Решение задачи: «Заменить отрицательные числа массива нулями»

textual
                            Листинг программы 
                        

                            For n = 1 To 15
If x(n) > 0 Then
TextBox2.Text = TextBox2.Text & x(n) & Chr(13)
Else
TextBox2.Text = TextBox2.Text & "0" & Chr(13)
end if
Next n
                        