求助 我编写的小程序不知道哪里错了！请大家帮看一下

我是初学者
程序的作用，两个数比较，如果两个数相同，就在指定的位置显示这个数，并且显示这个数的前面和后面的数！
错误提示 。。未定义！ 我也不知道哪里错了 请大家帮忙看看抗力错了Dim snow(1 To 8) As String
Dim bijiao(1 To 4) As String
Dim a As Integer
Dim b As IntegerPrivate 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) = biiao(2) Then GoTo Line1
    ElseIf snow(a) = biiao(3) Then GoTo Line1
    ElseIf snow(a) = biiao(4) Then GoTo Line1    
    Else  
  End If
 
Line1:
   b = b + 1
     If b = 1 Then
        nexta1 = snow(a - 1)
        nextb1 = snow(a)
        nwxtc1 = snow(a + 1)
        ElseIf b = 2 Then
        nexta2 = snow(a - 1)
        nextb2 = snow(a)
        nwxtc2 = snow(a + 1)
        ElseIf b = 3 Then
        nexta3 = snow(a - 1)
        nextb3 = snow(a)
        nwxtc3 = snow(a + 1)
        ElseIf b = 4 Then
        nexta4 = snow(a - 1)
        nextb4 = snow(a)
        nwxtc4 = snow(a + 1)
       
        Else
  
     End If   
Next a
End Sub