哪个高人帮我看看啊VB

Dim A, B, C, D, E, F As Integer
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
D = Val(Text4.Text)
E = Val(Text5.Text)
F = Val(Text6.Text)
If A <= 0 & B <= 0 & C <= 0 & D <= 0 & E <= 0 & F <= 0 & A > 6 & B > 6 & C > 6 & D > 6 & E > 6 & F > 6 Then
MsgBox "你输入有误,请输入1-6之间的任务数值 错误时间" & Now, , "错误提示"
ElseIf A = B & A = C & A = D & A = E & A = F & B = C & B = D & B = E & B = F & C = E & C = F & E = F Then
MsgBox "你输入有误,请不要输入相同数值 错误时间" & Now, , "错误信息"
ElseIf (A + B + C) = (C + D + E) And (A + B + C) = (A + F + E) Then
InputBox "你成功啦,你太棒了.天才啊", "好消息", "请留下天才的姓名吧"
Else
MsgBox "你比我想像的要笨多了,再想想", , "消息'"

End If
是哪里错啦.它就是不能分清楚啊

Dim A, B, C, D, E, F As Integer
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
D = Val(Text4.Text)
E = Val(Text5.Text)
F = Val(Text6.Text)
If A <= 0 or B <= 0 or C <= 0 or D <= 0 or E <= 0 or F <= 0 or A > 6 or B > 6 or C > 6 or D > 6 or E > 6 or F > 6 Then
MsgBox "你输入有误,请输入1-6之间的任务数值 错误时间" & Now, , "错误提示"
ElseIf A = B or A = C or A = D or A = E or A = F or B = C or B = D or B = E or B = F or C = E or C = F or E = F Then
MsgBox "你输入有误,请不要输入相同数值 错误时间" & Now, , "错误信息"
ElseIf (A + B + C) = (C + D + E) or (A + B + C) = (A + F + E) Then
InputBox "你成功啦,你太棒了.天才啊", "好消息", "请留下天才的姓名吧"
Else
MsgBox "你比我想像的要笨多了,再想想", , "消息'"

End If

把IF后面的& 改为 and
如下：

Private Sub Form_Click()
Dim A, B, C, D, E, F As Integer
A = Val(Text1.Text)