在vb里面，input对话中输入122xxxxxxxx,13821457412，怎样去存储他们到一个数组里面，数组一个单元存储一个手机号码？

不用了。。我已经知道怎么做了。。。不好意思浪费大家的时间

可以用函数来做一下为我写的一个取楼主说的那样的字符串，转化为数组的函数，参数str为字符串，参数sstr()为字符串数组（建议传引用）。返回值num为字符串数组的元素个数。

Function MidStr(str,sstr())
     Dim tstr, mstr, tui
     Dim i, num, j
     num = 0
     For i = 0 To Len(str)
         tstr = Mid(str, i + 1, 1)
         If tstr = "," Then
            num = num + 1
         End If
     Next i
     ReDim sstr(num)
     j = 0
     For i = 0 To Len(str)
         tstr = Mid(str, i + 1, 1)
         If tstr <> "," Then
            mstr = mstr & tstr
         Else
            If j < num Then
               sstr(j) = mstr
               mstr = ""
               j = j + 1
           End If
        End If
     Next i
  MidStr = num
End Function