Why ISnt this Working???[RESOLVED]

[vbMarkO]

Heres the COde

Private Sub cmdSaveInfo_Click()
 Dim strInfo() As String ' My Array for Data
 Dim strData As String ' Variable that Holds Data
 Dim i As Integer
 Dim x As Integer
 
  strData = "Zero One Two Three FOur Five Six Seven Eight Nine"
   strInfo = Split(strData, " ")
   For i = 0 To txtInfo.UBound
     For x = 1 To UBound(strInfo)
       txtInfo(i).Text = strInfo(x)
     Next x
   Next i
 
End Sub

Note its only adding the Word "Nine" to all fo the textboxes instead of splitting each word and adding each word....

vbMarkO

EDIT#################################

I figured it out this gets it done

Private Sub cmdSaveInfo_Click()
 Dim strInfo() As String ' My Array for Data
 Dim strData As String ' Variable that Holds Data
 Dim i As Integer
 
 
  For i = 0 To txtInfo.UBound
     strData = strData & txtInfo(i).Text & " "
   Next i
   For i = 0 To txtInfo.UBound
    txtInfo(i) = ""
   Next i
   strInfo = Split(strData, Space(1))
   
   For i = 0 To txtInfo.UBound
     txtInfo(i).Text = strInfo(i)
     
   Next i
 
End Sub