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

Dim A(4, 4) As Double
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 0 To 4
    For j = 0 To 4
        If A(i, j) < 0 Then A(i, j) = 0
        Text1.Text = Text1.Text & A(i, j) & " "
    Next j
    Text1.Text = Text1.Text & vbCrLf
Next i
End Sub