Изменить знак всех чётных элементов массива, состоящих из L чисел - VB

Dim A() As Single, L As Integer, txt As String, txt1 As String
L = InputBox("L")
ReDim A(1 To L)
For i = 1 To L
    A(i) = InputBox("A(" & i & ")")
    txt = txt & A(i) & " "
    If A(i) Mod 2 = 0 Then A(i) = A(i) * -1
    txt1 = txt1 & A(i) & " "
Next i
MsgBox txt & Chr(13) & txt1