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

[RhinoBull]

The reason is - you have 2 loops instead of only one.
Try the following and let me know (btw - I only created 1 textbox in design with index = 0 and rest of them are created at runtime depending on size of you array):

Private Sub cmdSaveInfo_Click()
'===============================
Dim strInfo() As String ' My Array for Data
Dim strData As String ' Variable that Holds Data
Dim i As Integer
 
    strData = "Zero One Two Three FOur Five Six Seven Eight Nine"
    strInfo = Split(strData, Space(1))
    For i = 0 To UBound(strInfo)
        If i > 0 Then
            Load txtInfo(i)
            txtInfo(i).Move txtInfo(i - 1).Left, txtInfo(i - 1).Top + txtInfo(i - 1).Height
            txtInfo(i).Visible = True
        End If
        txtInfo(i).Text = strInfo(i)
    Next i
 
End Sub

[BrianS]

Also remember, Arrays start at (0) not (1).