bNewLine & line45 & vbNewLine & line46 & vbNewLine & line47 & vbNewLine & line48 & vbNewLine & line49 Else End If ' If num.Text = 5 Then item = Line1 & vbNewLine & line11 & vbNewLine & line12 & vbNewLine & line13 & vbNewLine & line14 & vbNewLine & line15 & vbNewLine & line16 & vbNewLine & line17 & vbNewLine & line18 & vbNewLine & line19 & vbNewLine & Line2 & vbNewLine & line21 & vbNewLine & line22 & vbNewLine & line23 & vbNewLine & line24 & vbNewLine & line25 & vbNewLine & line26 & vbNewLine & line27 & vbNewLine & line28 & vbNewLine & line29 & vbNewLine & Line3 & vbNewLine & line31 & vbNewLine & line32 & vbNewLine & line33 & vbNewLine & line34 & vbNewLine & line35 & vbNewLine & line36 & vbNewLine & line37 & vbNewLine & line38 & vbNewLine & line39 & vbNewLine & Line4 & vbNewLine & line41 & vbNewLine & line42 & vbNewLine & line43 & vbNewLine & line44 & vbNewLine & line45 & vbNewLine & line46 & vbNewLine & line47 & vbNewLine & line48 & vbNewLine & line49 & vbNewLine & line5 & vbNewLine & line51 & vbNewLine & line52 & vbNewLine & line53 & vbNewLine & line54 & vbNewLine & line55 & vbNewLine & line56 & vbNewLine & line57 & vbNewLine & line58 & vbNewLine & line59 Else End If ' If num.Text = 6 Then item = Line1 & vbNewLine & line11 & vbNewLine & line12 & vbNewLine & line13 & vbNewLine & line14 & vbNewLine & line15 & vbNewLine & line16 & vbNewLine & line17 & vbNewLine & line18 & vbNewLine & line19 & vbNewLine & Line2 & vbNewLine & line21 & vbNewLine & line22 & vbNewLine & line23 & vbNewLine & line24 & vbNewLine & line25 & vbNewLine & line26 & vbNewLine & line27 & vbNewLine & line28 & vbNewLine & line29 & vbNewLine & Line3 & vbNewLine & line31 & vbNewLine & line32 & vbNewLine & line33 & vbNewLine & line34 & vbNewLine & line35 & vbNewLine & line36 & vbNewLine & line37 & vbNewLine & line38 & vbNewLine & line39 & vbNewLine & Line4 & vbNewLine & line41 & vbNewLine & line42 & vbNewLine & line43 & vbNewLine & line44 & vbNewLine & line45 & vbNewLine & line46 & vbNewLine & line47 & vbNewLine & line48 & vbNewLine & line49 & vbNewLine & line5 & vbNewLine & line51 & vbNewLine & line52 & vbNewLine & line53 & vbNewLine & line54 & vbNewLine & line55 & vbNewLine & line56 & vbNewLine & line57 & vbNewLine & line58 & vbNewLine & line59 & vbNewLine & line6 & vbNewLine & line61 & vbNewLine & line62 & vbNewLine & line63 & vbNewLine & line64 & vbNewLine & line65 & vbNewLine & line66 & vbNewLine & line67 & vbNewLine & line68 & vbNewLine & line69 Else End If ' If num.Text = 7 Then item = Line1 & vbNewLine & line11 & vbNewLine & line12 & vbNewLine & line13 & vbNewLine & line14 & vbNewLine & line15 & vbNewLine & line16 & vbNewLine & line17 & vbNewLine & line18 & vbNewLine & line19 & vbNewLine & Line2 & vbNewLine & line21 & vbNewLine & line22 & vbNewLine & line23 & vbNewLine & line24 & vbNewLine & line25 & vbNewLine & line26 & vbNewLine & line27 & vbNewLine & line28 & vbNewLine & line29 & vbNewLine & Line3 & vbNewLine & line31 & vbNewLine & line32 & vbNewLine & line33 & vbNewLine & line34 & vbNewLine & line35 & vbNewLine & line36 & vbNewLine & line37 & vbNewLine & line38 & vbNewLine & line39 & vbNewLine & Line4 & vbNewLine & line41 & vbNewLine & line42 & vbNewLine & line43 & vbNewLine & line44 & vbNewLine & line45 & vbNewLine & line46 & vbNewLine & line47 & vbNewLine & line48 & vbNewLine & line49 & vbNewLine & line5 & vbNewLine & line51 & vbNewLine & line52 & vbNewLine & line53 & vbNewLine & line54 & vbNewLine & line55 & vbNewLine & line56 & vbNewLine & line57 & vbNewLine & line58 & vbNewLine & line59 & vbNewLine & line6 & vbNewLine & line61 & vbNewLine & line62 & vbNewLine & line63 & vbNewLine & line64 & vbNewLine & line65 & vbNewLine & line66 & vbNewLine & line67 & vbNewLine & line68 & vbNewLine & line69 & vbNewLine & line7 & vbNewLine & line71 & vbNewLine & line72 & vbNewLine & line73 & vbNewLine & line74 & vbNewLine & line75 & vbNewLine & line76 & vbNewLine & line77 & vbNewLine & line78 & vbNewLine & line79 Else End If ' If num.Text = 8 Then item = Line1 & vbNewLine & line11 & vbNewLine & line12 & vbNewLine & line13 & vbNewLine & line14 & vbNewLine & line15 & vbNewLine & line16 & vbNewLine & line17 & vbNewLine & line18 & vbNewLine & line19 & vbNewLine & Line2 & vbNewLine & line21 & vbNewLine & line22 & vbNewLine & line23 & vbNewLine & line24 & vbNewLine & line25 & vbNewLine & line26 & vbNewLine & line27 & vbNewLine & line28 & vbNewLine & line29 & vbNewLine & Line3 & vbNewLine & line31 & vbNewLine & line32 & vbNewLine & line33 & vbNewLine & line34 & vbNewLine & line35 & vbNewLine & line36 & vbNewLine & line37 & vbNewLine & line38 & vbNewLine & line39 & vbNewLine & Line4 & vbNewLine & line41 & vbNewLine & line42 & vbNewLine & line43 & vbNewLine & line44 & vbNewLine & line45 & vbNewLine & line46 & vbNewLine & line47 & vbNewLine & line48 & vbNewLine & line49 & vbNewLine & line5 & vbNewLine & line51 & vbNewLine & line52 & vbNewLine & line53 & vbNewLine & line54 & vbNewLine & line55 & vbNewLine & line56 & vbNewLine & line57 & vbNewLine & line58 & vbNewLine & line59 & vbNewLine & line6 & vbNewLine & line61 & vbNewLine & line62 & vbNewLine & line63 & vbNewLine & line64 & vbNewLine & line65 & vbNewLine & line66 & vbNewLine & line67 & vbNewLine & line68 & vbNewLine & line69 & vbNewLine & line7 & vbNewLine & line71 & vbNewLine & line72 & vbNewLine & line73 & vbNewLine & line74 & vbNewLine & line75 & vbNewLine & line76 & vbNewLine & line77 & vbNewLine & line78 & vbNewLine & line79 & vbNewLine & line8 & vbNewLine & line81 & vbNewLine & line82 & vbNewLine & line83 & vbNewLine & line84 & vbNewLine & line85 & vbNewLine & line86 & vbNewLine & line87 & vbNewLine & line88 & vbNewLine & line89 Else End If ' If num.Text = 9 Then item = Line1 & vbNewLine & line11 & vbNewLine & line12 & vbNewLine & line13 & vbNewLine & line14 & vbNewLine & line15 & vbNewLine & line16 & vbNewLine & line17 & vbNewLine & line18 & vbNewLine & line19 & vbNewLine & Line2 & vbNewLine & line21 & vbNewLine & line22 & vbNewLine & line23 & vbNewLine & line24 & vbNewLine & line25 & vbNewLine & line26 & vbNewLine & line27 & vbNewLine & line28 & vbNewLine & line29 & vbNewLine & Line3 & vbNewLine & line31 & vbNewLine & line32 & vbNewLine & line33 & vbNewLine & line34 & vbNewLine & line35 & vbNewLine & line36 & vbNewLine & line37 & vbNewLine & line38 & vbNewLine & line39 & vbNewLine & Line4 & vbNewLine & line41 & vbNewLine & line42 & vbNewLine & line43 & vbNewLine & line44 & vbNewLine & line45 & vbNewLine & line46 & vbNewLine & line47 & vbNewLine & line48 & vbNewLine & line49 & vbNewLine & line5 & vbNewLine & line51 & vbNewLine & line52 & vbNewLine & line53 & vbNewLine & line54 & vbNewLine & line55 & vbNewLine & line56 & vbNewLine & line57 & vbNewLine & line58 & vbNewLine & line59 & vbNewLine & line6 & vbNewLine & line61 & vbNewLine & line62 & vbNewLine & line63 & vbNewLine & line64 & vbNewLine & line65 & vbNewLine & line66 & vbNewLine & line67 & vbNewLine & line68 & vbNewLine & line69 & vbNewLine & line7 & vbNewLine & line71 & vbNewLine & line72 & vbNewLine & line73 & vbNewLine & line74 & vbNewLine & line75 & vbNewLine & line76 & vbNewLine & line77 & vbNewLine & line78 & vbNewLine & line79 & vbNewLine & line8 & vbNewLine & line81 & vbNewLine & line82 & vbNewLine & line83 & vbNewLine & line84 & vbNewLine & line85 & vbNewLine & line86 & vbNewLine & line87 & vbNewLine & line88 & vbNewLine & line89 & vbNewLine & line9 & vbNewLine & line91 & vbNewLine & line92 & vbNewLine & line93 & vbNewLine & line94 & vbNewLine & line95 & vbNewLine & line96 & vbNewLine & line97 & vbNewLine & line98 & vbNewLine & line99 Else End If ' If num.Text = 10 Then item = Line1 & vbNewLine & line11 & vbNewLine & line12 & vbNewLine & line13 & vbNewLine & line14 & vbNewLine & line15 & vbNewLine & line16 & vbNewLine & line17 & vbNewLine & line18 & vbNewLine & line19 & vbNewLine & Line2 & vbNewLine & line21 & vbNewLine & line22 & vbNewLine & line23 & vbNewLine & line24 & vbNewLine & line25 & vbNewLine & line26 & vbNewLine & line27 & vbNewLine & line28 & vbNewLine & line29 & vbNewLine & Line3 & vbNewLine & line31 & vbNewLine & line32 & vbNewLine & line33 & vbNewLine & line34 & vbNewLine & line35 & vbNewLine & line36 & vbNewLine & line37 & vbNewLine & line38 & vbNewLine & line39 & vbNewLine & Line4 & vbNewLine & line41 & vbNewLine & line42 & vbNewLine & line43 & vbNewLine & line44 & vbNewLine & line45 & vbNewLine & line46 & vbNewLine & line47 & vbNewLine & line48 & vbNewLine & line49 & vbNewLine & line5 & vbNewLine & line51 & vbNewLine & line52 & vbNewLine & line53 & vbNewLine & line54 & vbNewLine & line55 & vbNewLine & line56 & vbNewLine & line57 & vbNewLine & line58 & vbNewLine & line59 & vbNewLine & line6 & vbNewLine & line61 & vbNewLine & line62 & vbNewLine & line63 & vbNewLine & line64 & vbNewLine & line65 & vbNewLine & line66 & vbNewLine & line67 & vbNewLine & line68 & vbNewLine & line69 & vbNewLine & line7 & vbNewLine & line71 & vbNewLine & line72 & vbNewLine & line73 & vbNewLine & line74 & vbNewLine & line75 & vbNewLine & line76 & vbNewLine & line77 & vbNewLine & line78 & vbNewLine & line79 & vbNewLine & line8 & vbNewLine & line81 & vbNewLine & line82 & vbNewLine & line83 & vbNewLine & line84 & vbNewLine & line85 & vbNewLine & line86 & vbNewLine & line87 & vbNewLine & line88 & vbNewLine & line89 & vbNewLine & line9 & vbNewLine & line91 & vbNewLine & line92 & vbNewLine & line93 & vbNewLine & line94 & vbNewLine & line95 & vbNewLine & line96 & vbNewLine & line97 & vbNewLine & line98 & vbNewLine & line99 & vbNewLine & _ line10 & vbNewLine & line101 & vbNewLine & line102 & vbNewLine & line103 & vbNewLine & line104 & vbNewLine & line105 & vbNewLine & line106 & vbNewLine & line107 & vbNewLine & line108 & vbNewLine & line109 Else End If ' ' ' Print #11, item 'line1 = "": line2 = "": line3 = "" ' line1 = "": line11 = "": line2 = "": line21 = "": line3 = "": line31 = "" errs = 0 Loop e: errs = errs + 1 'If errs < 6 Then Resu