'Declare an array and load each "phrase" of the full text.
Dim arrPhrases(11) As String
arrPhrases(1)= c.GetAttrib ("Window1")
arrPhrases(2)= c.GetAttrib ("Window2")
arrPhrases(3)= c.GetAttrib ("Window3")
arrPhrases(4)= c.GetAttrib ("Window4")
arrPhrases(5)= c.GetAttrib ("Window5")
arrPhrases(6)= c.GetAttrib ("Window6")
arrPhrases(7)= c.GetAttrib ("Window7")
arrPhrases(8)= c.GetAttrib ("Window8")
arrPhrases(9)= c.GetAttrib ("Window9")
arrPhrases(10)= c.GetAttrib ("Window10")
arrPhrases(11)= c.GetAttrib ("Window11")


'Declare an array that will hold the "masked" version of each phrase.
'The "mask" is a series of dashes that is the same length as the
'phrase itself.
Dim arrMask(11) As String
arrMask(1)= String$(Len(arrPhrases(1)), "-")
arrMask(2)= String$(Len(arrPhrases(2)), "-")
arrMask(3)= String$(Len(arrPhrases(3)), "-")
arrMask(4)= String$(Len(arrPhrases(4)), "-")
arrMask(5)= String$(Len(arrPhrases(5)), "-")
arrMask(6)= String$(Len(arrPhrases(6)), "-")
arrMask(7)= String$(Len(arrPhrases(7)), "-")
arrMask(8)= String$(Len(arrPhrases(8)), "-")
arrMask(9)= String$(Len(arrPhrases(9)), "-")
arrMask(10)= String$(Len(arrPhrases(10)), "-")
arrMask(11)= String$(Len(arrPhrases(11)), "-")

'Generic counter variable.
Dim nCount As Integer

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Assess the position of the hard return

If c.GetAttrib("HardReturn1") = "2" Then
	arrPhrases(2) = "\n" & arrPhrases(2)
	arrMask(2) = "\n" & arrMask(2)
End If

If c.GetAttrib("HardReturn1") = "3" Then
	arrPhrases(3) = "\n" & arrPhrases(3)
	arrMask(3) = "\n" & arrMask(3)
End If

If c.GetAttrib("HardReturn1") = "4" Then
	arrPhrases(4) = "\n" & arrPhrases(4)
	arrMask(4) = "\n" & arrMask(4)
End If

If c.GetAttrib("HardReturn1") = "5" Then
	arrPhrases(5) = "\n" & arrPhrases(5)
	arrMask(5) = "\n" & arrMask(5)
End If

If c.GetAttrib("HardReturn1") = "6" Then
	arrPhrases(6) = "\n" & arrPhrases(6)
	arrMask(6) = "\n" & arrMask(6)
End If

If c.GetAttrib("HardReturn1") = "7" Then
	arrPhrases(7) = "\n" & arrPhrases(7)
	arrMask(7) = "\n" & arrMask(7)
End If

If c.GetAttrib("HardReturn2") = "5" Then
	arrPhrases(5) = "\n" & arrPhrases(5)
	arrMask(5) = "\n" & arrMask(5)
End If

If c.GetAttrib("HardReturn2") = "6" Then
	arrPhrases(6) = "\n" & arrPhrases(6)
	arrMask(6) = "\n" & arrMask(6)
End If

If c.GetAttrib("HardReturn2") = "7" Then
	arrPhrases(7) = "\n" & arrPhrases(7)
	arrMask(7) = "\n" & arrMask(7)
End If

If c.GetAttrib("HardReturn2") = "8" Then
	arrPhrases(8) = "\n" & arrPhrases(8)
	arrMask(8) = "\n" & arrMask(8)
End If

If c.GetAttrib("HardReturn2") = "9" Then
	arrPhrases(9) = "\n" & arrPhrases(9)
	arrMask(9) = "\n" & arrMask(9)
End If

If c.GetAttrib("HardReturn2") = "10" Then
	arrPhrases(10) = "\n" & arrPhrases(10)
	arrMask(10) = "\n" & arrMask(10)
End If

If c.GetAttrib("HardReturn2") = "11" Then
	arrPhrases(11) = "\n" & arrPhrases(11)
	arrMask(11) = "\n" & arrMask(11)
End If


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Clear the mask if one of the phrases contains only an "x".
If arrPhrases(5) = "x" Then
	arrMask(5)=""
	arrMask(6)=""
	arrMask(7)=""
	arrMask(8)=""
	arrMask(9)=""
	arrMask(10)=""
	arrMask(11)=""
End If

If arrPhrases(6) = "x" Then
	arrMask(6)=""
	arrMask(7)=""
	arrMask(8)=""
	arrMask(9)=""
	arrMask(10)=""
	arrMask(11)=""
End If

If arrPhrases(7) = "x" Then
	arrMask(7)=""
	arrMask(8)=""
	arrMask(9)=""
	arrMask(10)=""
	arrMask(11)=""
End If

If arrPhrases(8) = "x" Then
	arrMask(8)=""
	arrMask(9)=""
	arrMask(10)=""
	arrMask(11)=""
End If

If arrPhrases(9) = "x" Then
	arrMask(9)=""
	arrMask(10)=""
	arrMask(11)=""
End If

If arrPhrases(10) = "x" Then
	arrMask(10)=""
	arrMask(11)=""
End If

If arrPhrases(11) = "x" Then
	arrMask(11)=""
End If

'Assign text to each object.
For nCount = 1 To 11
	
	Select Case nCount
	
	Case 1
  		Text1.Text = arrPhrases(1)& " " & arrMask(2) & " " & arrMask(3) & " " & arrMask(4) & " " & arrMask(5) & " " & arrMask(6)& " " & arrMask(7)& " " & arrMask(8) & " " & arrMask(9) & " " & arrMask(10) & " " & arrMask(11)
	Case 2
  		Text2.Text = arrMask(1)& " " & arrPhrases(2) & " " & arrMask(3) & " " & arrMask(4) & " " & arrMask(5) & " " & arrMask(6)& " " & arrMask(7)& " " & arrMask(8) & " " & arrMask(9) & " " & arrMask(10) & " " & arrMask(11)
	Case 3
 		Text3.Text = arrMask(1)& " " & arrMask(2) & " " & arrPhrases(3) & " " & arrMask(4) & " " & arrMask(5) & " " & arrMask(6)& " " & arrMask(7)& " " & arrMask(8) & " " & arrMask(9) & " " & arrMask(10) & " " & arrMask(11)
	Case 4
  		Text4.Text = arrMask(1)& " " & arrMask(2) & " " & arrMask(3) & " " & arrPhrases(4) & " " & arrMask(5) & " " & arrMask(6)& " " & arrMask(7)& " " & arrMask(8) & " " & arrMask(9) & " " & arrMask(10) & " " & arrMask(11)
	Case 5
 		Text5.Text = arrMask(1)& " " & arrMask(2) & " " & arrMask(3) & " " & arrMask(4) & " " & arrPhrases(5) & " " & arrMask(6)& " " & arrMask(7)& " " & arrMask(8) & " " & arrMask(9) & " " & arrMask(10) & " " & arrMask(11)
	Case 6
  		Text6.Text = arrMask(1)& " " & arrMask(2) & " " & arrMask(3) & " " & arrMask(4) & " " & arrMask(5) & " " & arrPhrases(6)& " " & arrMask(7)& " " & arrMask(8) & " " & arrMask(9) & " " & arrMask(10) & " " & arrMask(11)
	Case 7
  		Text7.Text = arrMask(1)& " " & arrMask(2) & " " & arrMask(3) & " " & arrMask(4) & " " & arrMask(5) & " " & arrMask(6)& " " & arrPhrases(7)& " " & arrMask(8) & " " & arrMask(9) & " " & arrMask(10) & " " & arrMask(11) 
	Case 8
  		Text8.Text = arrMask(1)& " " & arrMask(2) & " " & arrMask(3) & " " & arrMask(4) & " " & arrMask(5) & " " & arrMask(6)& " " & arrMask(7)& " " & arrPhrases(8) & " " & arrMask(9) & " " & arrMask(10) & " " & arrMask(11) 
	Case 9
  		Text9.Text = arrMask(1)& " " & arrMask(2) & " " & arrMask(3) & " " & arrMask(4) & " " & arrMask(5) & " " & arrMask(6)& " " & arrMask(7)& " " & arrMask(8) & " " & arrPhrases(9) & " " & arrMask(10) & " " & arrMask(11) 
	Case 10
  		Text10.Text = arrMask(1)& " " & arrMask(2) & " " & arrMask(3) & " " & arrMask(4) & " " & arrMask(5) & " " & arrMask(6)& " " & arrMask(7)& " " & arrMask(8) & " " & arrMask(9) & " " & arrPhrases(10) & " " & arrMask(11) 
	Case 11
  		Text11.Text = arrMask(1)& " " & arrMask(2) & " " & arrMask(3) & " " & arrMask(4) & " " & arrMask(5) & " " & arrMask(6)& " " & arrMask(7)& " " & arrMask(8) & " " & arrMask(9) & " " & arrMask(10) & " " & arrPhrases(11)
	End Select

Next nCount