主题：根据联系电话号码，知道是那个城市的

 必须用If Else EndIf

Dim a As String = "02155556666"
Dim qhs As String = "010,021,0755"
Dim css As String = "北京,上海,深圳"

Dim ary1() As String = qhs.Split(",")
Dim ary2() As String = css.Split(",")
Dim idx As Integer = Array.IndexOf(ary1, a.SubString(0,3))
If idx > -1 Then
    msgbox(ary2(idx))
Else
    idx = Array.IndexOf(ary1, a.SubString(0,4))
    If idx > -1 Then
        msgbox(ary2(idx))
    Else
        msgbox("没有")
    End If
End If