检查重复可以考虑如下思路：
定义一个动态数组用来保存所有需要输出的数，设包含全部50个随机数的数组为a，新定义的数组为b
循环遍历数组a，先检查当前元素a(i)是否已经出现在数组b中了（绝对值相等就算出现），如果没有出现，则从数组a的第i+1个数开始，依次与a(i)比较，如果绝对值相等，则将a(i)写入数组b，并结束比较，继续检查第i+1个元素
检查完成后，输出数组b即可
代码如下：
Dim b() As Integer, i As Integer, j As Integer, n As Integer
For i = 1 To 49
For j = 1 To n
If Abs(a(i)) = Abs(b(j)) Then Exit For
Next j
If j > n Then
For j = i + 1 To 50
If Abs(a(i)) = Abs(a(j)) Then
n = n + 1
ReDim Preserve b(1 To n)
b(n) = a(i)
Exit For
End If
Next j
End If
Next i
Text2.Text = ""
For i = 1 To n
Text2.Text = Text2.Text & Space(2) & b(i)
Next i