... OR ...
VB Code:
  1. Private Sub Command1_Click()

  2. Dim strValues$

  3. Dim arNumbers() As String

  4.  
  5.     strValues = "404933,165425,907356,992437,665768,541879,509990,203261,255631,108982"

  6.     arNumbers = Split(strValues, ",")

  7.     Debug.Print arNumbers(1)

  8.  
  9. End Sub