Private Sub Form_Load()
If Form1.Text1.Text = "" Then
Form1.Text1.Text = " "
End If
If Form1.Text2.Text = "" Then
Form1.Text2.Text = " "
End If
If Form1.Text3.Text = "" Then
Form1.Text3.Text = " "
End If
If Form1.Text4.Text = "" Then
Form1.Text4.Text = " "
End If
If Form1.Text5.Text = "" Then
Form1.Text5.Text = " "
End If
If Form1.Text6.Text = "" Then
Form1.Text6.Text = " "
End If
If Form1.Text7.Text = "" Then
Form1.Text7.Text = " "
End If
If Form1.Text8.Text = "" Then
Form1.Text8.Text = " "
End If
If Form1.Text9.Text = "" Then
Form1.Text9.Text = " "
End If
If Form1.Text10.Text = "" Then
Form1.Text10.Text = " "
End If
If Form1.Text11.Text = "" Then
Form1.Text11.Text = " "
End If
If Form1.Text12.Text = "" Then
Form1.Text12.Text = " "
End If
If Form1.Text13.Text = "" Then
Form1.Text13.Text = " "
End If
If Form1.Text14.Text = "" Then
Form1.Text14.Text = " "
End If
If Form1.Text15.Text = "" Then
Form1.Text15.Text = " "
End If
If Form1.Text16.Text = "" Then
Form1.Text16.Text = " "
End If
If Form1.Text17.Text = "" Then
Form1.Text17.Text = " "
End If
If Form1.Text18.Text = "" Then
Form1.Text18.Text = " "
End If
If Form1.Text19.Text = "" Then
Form1.Text19.Text = " "
End If
If Form1.Text20.Text = "" Then
Form1.Text20.Text = " "
End If
If Form1.Text21.Text = "" Then
Form1.Text21.Text = " "
End If
If Form1.Text22.Text = "" Then
Form1.Text22.Text = " "
End If
If Form1.Text23.Text = "" Then
Form1.Text23.Text = " "
End If
If Form1.Text24.Text = "" Then
Form1.Text24.Text = " "
End If
If Form1.Text25.Text = "" Then
Form1.Text25.Text = " "
End If
If Form1.Text26.Text = "" Then
Form1.Text26.Text = " "
End If
If Form1.Text27.Text = "" Then
Form1.Text27.Text = " "
End If
If Form1.Text28.Text = "" Then
Form1.Text28.Text = " "
End If
If Form1.Text29.Text = "" Then
Form1.Text29.Text = " "
End If
If Form1.Text30.Text = "" Then
Form1.Text30.Text = " "
End If
If Form1.Text31.Text = "" Then
Form1.Text31.Text = " "
End If
If Form1.Text32.Text = "" Then
Form1.Text32.Text = " "
End If
If Form1.Text33.Text = "" Then
Form1.Text33.Text = " "
End If
If Form1.Text34.Text = "" Then
Form1.Text34.Text = " "
End If
If Form1.Text35.Text = "" Then
Form1.Text35.Text = " "
End If
If Form1.Text36.Text = "" Then
Form1.Text36.Text = " "
End If
If Form1.Text37.Text = "" Then
Form1.Text37.Text = " "
End If
If Form1.Text38.Text = "" Then
Form1.Text38.Text = " "
End If
If Form1.Text39.Text = "" Then
Form1.Text39.Text = " "
End If
If Form1.Text40.Text = "" Then
Form1.Text40.Text = " "
End If
If Form1.Text41.Text = "" Then
Form1.Text41.Text = " "
End If
If Form1.Text42.Text = "" Then
Form1.Text42.Text = " "
End If
If Form1.Text43.Text = "" Then
Form1.Text43.Text = " "
End If
If Form1.Text44.Text = "" Then
Form1.Text44.Text = " "
End If
If Form1.Text45.Text = "" Then
Form1.Text45.Text = " "
End If
If Form1.Text46.Text = "" Then
Form1.Text46.Text = " "
End If
If Form1.Text47.Text = "" Then
Form1.Text47.Text = " "
End If
If Form1.Text48.Text = "" Then
Form1.Text48.Text = " "
End If
If Form1.Text49.Text = "" Then
Form1.Text49.Text = " "
End If
If Form1.Text50.Text = "" Then
Form1.Text50.Text = " "
End If
If Form1.Text51.Text = "" Then
Form1.Text51.Text = " "
End If
If Form1.Text52.Text = "" Then
Form1.Text52.Text = " "
End If
If Form1.Text53.Text = "" Then
Form1.Text53.Text = " "
End If
If Form1.Text54.Text = "" Then
Form1.Text54.Text = " "
End If
If Form1.Text55.Text = "" Then
Form1.Text55.Text = " "
End If
If Form1.Text56.Text = "" Then
Form1.Text56.Text = " "
End If
If Form1.Text57.Text = "" Then
Form1.Text57.Text = " "
End If
If Form1.Text58.Text = "" Then
Form1.Text58.Text = " "
End If
If Form1.Text59.Text = "" Then
Form1.Text59.Text = " "
End If
If Form1.Text60.Text = "" Then
Form1.Text60.Text = " "
End If
If Form1.Text61.Text = "" Then
Form1.Text61.Text = " "
End If
If Form1.Text62.Text = "" Then
Form1.Text62.Text = " "
End If
If Form1.Text63.Text = "" Then
Form1.Text63.Text = " "
End If
If Form1.Text64.Text = "" Then
Form1.Text64.Text = " "
End If
If Form1.Text65.Text = "" Then
Form1.Text65.Text = " "
End If
If Form1.Text66.Text = "" Then
Form1.Text66.Text = " "
End If
If Form1.Text67.Text = "" Then
Form1.Text67.Text = " "
End If
If Form1.Text68.Text = "" Then
Form1.Text68.Text = " "
End If
If Form1.Text69.Text = "" Then
Form1.Text69.Text = " "
End If
If Form1.Text70.Text = "" Then
Form1.Text70.Text = " "
End If
If Form1.Text71.Text = "" Then
Form1.Text71.Text = " "
End If
If Form1.Text72.Text = "" Then
Form1.Text72.Text = " "
End If
If Form1.Text73.Text = "" Then
Form1.Text73.Text = " "
End If
If Form1.Text74.Text = "" Then
Form1.Text74.Text = " "
End If
If Form1.Text75.Text = "" Then
Form1.Text75.Text = " "
End If
If Form1.Text76.Text = "" Then
Form1.Text76.Text = " "
End If
If Form1.Text77.Text = "" Then
Form1.Text77.Text = " "
End If
If Form1.Text78.Text = "" Then
Form1.Text78.Text = " "
End If
If Form1.Text79.Text = "" Then
Form1.Text79.Text = " "
End If
If Form1.Text80.Text = "" Then
Form1.Text80.Text = " "
End If
If Form1.Text81.Text = "" Then
Form1.Text81.Text = " "
End If
If Form1.Text82.Text = "" Then
Form1.Text82.Text = " "
End If
If Form1.Text83.Text = "" Then
Form1.Text83.Text = " "
End If
If Form1.Text84.Text = "" Then
Form1.Text84.Text = " "
End If
If Form1.Text85.Text = "" Then
Form1.Text85.Text = " "
End If
If Form1.Text86.Text = "" Then
Form1.Text86.Text = " "
End If
If Form1.Text87.Text = "" Then
Form1.Text87.Text = " "
End If
If Form1.Text88.Text = "" Then
Form1.Text88.Text = " "
End If
If Form1.Text89.Text = "" Then
Form1.Text89.Text = " "
End If
If Form1.Text90.Text = "" Then
Form1.Text90.Text = " "
End If
If Form1.Text91.Text = "" Then
Form1.Text91.Text = " "
End If
If Form1.Text92.Text = "" Then
Form1.Text92.Text = " "
End If
If Form1.Text93.Text = "" Then
Form1.Text93.Text = " "
End If
If Form1.Text94.Text = "" Then
Form1.Text94.Text = " "
End If
If Form1.Text95.Text = "" Then
Form1.Text95.Text = " "
End If
If Form1.Text96.Text = "" Then
Form1.Text96.Text = " "
End If
If Form1.Text97.Text = "" Then
Form1.Text97.Text = " "
End If
If Form1.Text98.Text = "" Then
Form1.Text98.Text = " "
End If
If Form1.Text99.Text = "" Then
Form1.Text99.Text = " "
End If
If Form1.Text100.Text = "" Then
Form1.Text100.Text = " "
End If
a1 = " " & Form1.Text1 & " " & Form1.Text2 & " " & Form1.Text3 & " " & Form1.Text4 & " " & Form1.Text5 & " " & Form1.Text6 & " " & Form1.Text7 & " " & Form1.Text8 & " " & Form1.Text9 & " " & Form1.Text10 & vbNewLine & vbNewLine & " " & Form1.Text11 & " " & Form1.Text12 & " " & Form1.Text13 & " " & Form1.Text14 & " " & Form1.Text15 & " " & Form1.Text16 & " " & Form1.Text17 & " " & Form1.Text18 & " " & Form1.Text19 & " " & Form1.Text20 & vbNewLine & vbNewLine
a2 = " " & Form1.Text21 & " " & Form1.Text22 & " " & Form1.Text23 & " " & Form1.Text24 & " " & Form1.Text25 & " " & Form1.Text26 & " " & Form1.Text27 & " " & Form1.Text28 & " " & Form1.Text29 & " " & Form1.Text30 & vbNewLine & vbNewLine & " " & Form1.Text31 & " " & Form1.Text32 & " " & Form1.Text33 & " " & Form1.Text34 & " " & Form1.Text35 & " " & Form1.Text36 & " " & Form1.Text37 & " " & Form1.Text38 & " " & Form1.Text39 & " " & Form1.Text40 & vbNewLine & vbNewLine
a3 = " " & Form1.Text41 & " " & Form1.Text42 & " " & Form1.Text43 & " " & Form1.Text44 & " " & Form1.Text45 & " " & Form1.Text46 & " " & Form1.Text47 & " " & Form1.Text48 & " " & Form1.Text49 & " " & Form1.Text50 & vbNewLine & vbNewLine & " " & Form1.Text51 & " " & Form1.Text52 & " " & Form1.Text53 & " " & Form1.Text54 & " " & Form1.Text55 & " " & Form1.Text56 & " " & Form1.Text57 & " " & Form1.Text58 & " " & Form1.Text59 & " " & Form1.Text60 & vbNewLine & vbNewLine
a4 = " " & Form1.Text61 & " " & Form1.Text62 & " " & Form1.Text63 & " " & Form1.Text64 & " " & Form1.Text65 & " " & Form1.Text66 & " " & Form1.Text67 & " " & Form1.Text68 & " " & Form1.Text69 & " " & Form1.Text70 & vbNewLine & vbNewLine & " " & Form1.Text71 & " " & Form1.Text72 & " " & Form1.Text73 & " " & Form1.Text74 & " " & Form1.Text75 & " " & Form1.Text76 & " " & Form1.Text77 & " " & Form1.Text78 & " " & Form1.Text79 & " " & Form1.Text80 & vbNewLine & vbNewLine
a5 = " " & Form1.Text81 & " " & Form1.Text82 & " " & Form1.Text83 & " " & Form1.Text84 & " " & Form1.Text85 & " " & Form1.Text86 & " " & Form1.Text87 & " " & Form1.Text88 & " " & Form1.Text89 & " " & Form1.Text90 & vbNewLine & vbNewLine & " " & Form1.Text91 & " " & Form1.Text92 & " " & Form1.Text93 & " " & Form1.Text94 & " " & Form1.Text95 & " " & Form1.Text96 & " " & Form1.Text97 & " " & Form1.Text98 & " " & Form1.Text99 & " " & Form1.Text100 & vbNewLine & vbNewLine
Final.Text = a1 & a2 & a3 & a4 & a5
End Sub
