求助 我有个vb小程序不知道哪里错了！

我是初学者
程序的作用，两个数比较，如果两个数相同，就在指定的位置显示这个数，并且显示这个数的前面和后面的数！

问题是 goto 语句总是跳出for 循环，且结果也不对！ 如何解决！

Private Sub Command1_Click()
snow(1) = Mid(Text1.Text, 1, 2)
snow(2) = Mid(Text1.Text, 3, 3)
snow(3) = Mid(Text1.Text, 6, 3)
snow(4) = Mid(Text1.Text, 9, 3)
snow(5) = Mid(Text1.Text, 12, 3)
snow(6) = Mid(Text1.Text, 15, 3)
snow(7) = Mid(Text1.Text, 18, 3)
snow(8) = Mid(Text1.Text, 21, 3)
bijiao(1) = Mid(Text2.Text, 1, 2)
bijiao(2) = Mid(Text2.Text, 3, 3)
bijiao(3) = Mid(Text2.Text, 6, 3)
bijiao(4) = Mid(Text2.Text, 9, 3)
b = 0
For a = 1 To 8
If snow(a) = bijiao(1) Then
GoTo Line1
ElseIf snow(a) = bijiao(2) Then
GoTo Line1
ElseIf snow(a) = bijiao(3) Then
GoTo Line1
ElseIf snow(a) = bijiao(4) Then
GoTo Line1
Else
End If

Line1:
b = b + 1
If b = 1 Then