从键盘输入20个整数数据，将其中的负数以及负数的和显示出来   这题

我编写的代码   负数会显示出来了，可是负数的和不会显示出来，求告知怎么改
Private Sub Form_Click()
fushu = 0
fuhe = 0
For i = 1 To 20
fushu = Val(InputBox(t))
If fushu < 0 Then
fhushu = fuhe + fushu
Print fhushu
End If
Next i
Print fuhe
End Sub

Private Sub Form_Click()
fushu = 0
fuhe = 0
For i = 1 To 20
fushu = Val(InputBox(t))
If fushu < 0 Then
fuhe= fuhe + fushu
Print fushu
End If
Next i
Print fuhe
End Sub