<%@ Page Language="VB" Debug="true" %>
<Script runat="server">
Sub Page_Load(s as object, e as eventargs )
    Dim myString As String = "11,AA,BB,CC"
    Dim myArray() As String = Split(myString,",")
    response.write(myarray(2))
End Sub
</Script>

输出为 BB