vb中if elseif语句不向下执行

niufen

If nnn <> 0 Then
                          stry = Mid(a(X1 + 1), 1, nnn - 1)         
                          strb = Mid(a(X1 + 1), nnn + 1, n1 - nnn)  
                          nnn = 0
                       End If

'---------------查找-------------------------------
                         If InStr(stry, "18") <> 0 Then
                 
                             wy18(t) = "18"               
                  
                         ElseIf InStr(stry, "17") <> 0 Then
                 
                             wy17(t) = "17"                                      
                         ElseIf InStr(stry, "15") <> 0 Then
                 
                             wy15(t) = "15"               
                         ElseIf InStr(stry, "89") <> 0 Then
                 
                             wy89(t) = "89"                                         
                         ElseIf InStr(stry, "13") <> 0 Then
                 
                             wy13(t) = "13"               
                         End If
为什么只执行前两段，后面的筛选都不执行呢？
输出wy18(t) wy17(t)都没问题 可是wy15(t)后面几个就不输出