想不通的for each异常

for each异常：

以下代码目的是想把豆号隔开的字符串，如“1，2，3，”
分别取出成“My1”，“My2”，“My3”


dim strItemPrefix as string ="My"
  For i As Integer = 0 To 3
  strItemNum = strCollectionItemText.Substring(0, strCollectionItemText.IndexOf(","))
  strCollectionItemText = strCollectionItemText.Substring(strCollectionItemText.IndexOf(",") + 1)
  str = strItemPrefix.Trim & strItemNum.Trim
  MsgBox("str=" & str)
  listMyTempArryList.Add(str)  'listMyTempArryList 是类  LIST(of string)

  Next

怎么都弄不明白，只能报出“1”，运行到 listMyTempArryList.Add(str)就停止下来了，不再见有什么反应。

如果把listMyTempArryList.Add(str)去掉，就能报出“1”，“2”，“3”

有哪位碰到类似的问题吗？

------解决方法--------------------------------------------------------
listMyTempArryList 被实例化了吗
------解决方法--------------------------------------------------------
listMyTempArryList没有new 吧。