帮忙解决一个VB数组问题

Question

Dim pPrivate Sub Form_load()
  list1.additem "孙庆"
  list1.additem "徐雷"
  list1.additem "刘平"  Dim sArr(3) As String
  p=sArr("江西","四川","湖北")
End SubPrivate Sub cmdPrint_click()
 text1.text=p(list1.listindex)
End Sub
我本想编一个显示籍贯的程序，但总是显示sArr数组维数错误，请各位帮忙，小弟在此谢过！

Answer 1

p=sArr("江西","四川","湖北")
改为 
p=Array("江西","四川","湖北")

Answer 2

Dim sArr(3) As StringPrivate Sub Command1_Click()
  If list1.ListIndex <> -1 Then
    Text1.Text = sArr(list1.ListIndex)
  End If
End SubPrivate Sub Form_load()
  list1.AddItem "孙庆"
  list1.AddItem "徐雷"
  list1.AddItem "刘平" sArr(0) = "江西"
 sArr(1) = "四川"
 sArr(2) = "湖北"
End Sub

Answer 3

Dim pPrivate Sub Form_load()
  List1.AddItem "孙庆"
  List1.AddItem "徐雷"
  List1.AddItem "刘平"  Dim sArr As String
  sArr = "江西,四川,湖北"
  p = Split(sArr, ",")
End SubPrivate Sub cmdPrint_click()
 Text1.Text = p(List1.ListIndex)
End Sub