VB 判定多个变量互不相等

比如有70个int变量，或下标最大值为69的int数组

我需要判定它们都互不相等，然后才执行下一步

我该如何简洁的进行判定？
感觉算法都不对，我的目的是这样，假设有3个变量吧

if a<>b and a<>c and b<>c
then msgbox("就是这样")
end if

需要对这些变量同时互相判定为互不相等，缺一不可，并且判定后只输出一次结果，3楼的想想，如果真的都不等，你的算法得出现多少次msgbox啊！~！！

还有四楼五楼的，我判定的是不等哦，不是相等

Dim a(70) As Integer
Dim i, j As Integer
Dim flag As Balloon

flag = False

For i = 0 To 69
For j = 1 To 69
If a(i) = a(j) and i<>j Then
flag = True
Exit For
End If
Next
If flag = True Then
Exit For
End If
Next

拜托楼主，我可以是一个msgbox也没有弹出来啊。我的算法是，如果遇到一次不等，则跳出循环，直接去下面的程序，麻烦楼主仔细看看。

for i = 0 to 69
if intX(i) = intX(i+1)
msgbox("有相等的数值。")
exit sub
end if

1楼的算法不对

用1维数组排序的算法去做对了

--------------------答案补充分割线------------------------------

关于提问者的补充：

很多人给的答案都不错了
是你自己应用能力太差了
你可以定义一个比尔变量

AllSame as Boolean =false '默认互不相等初值

用上面的longfei503算法去判断
把msgbox的地方AllSame=True '发现有相等的值了

最后在根据

if AllSame Then
'有相同
else
'不相同在这里作业
end if

dim i,j
for i=0 to 68