Sub listpro()

Dim np(10), perp\$(10), nosp\$(10), pronounp\$(10), case1p\$(10)

10 MsgBox prompt:="List pronoun groups", Title:=" Book"

30 lang\$ = InputBox(prompt:="language:")

40 PRON\$ = InputBox(prompt:="pro:")

60 MsgBox prompt:=("h:\private\my documents" & "\" & PRON\$)

Filename\$ = "h:\private\my documents" + "\" + PRON\$ + ".csv"

70 Open Filename\$ For Input As #2

80 If EOF(2) Then GoTo 170

90 Input #2, n, per\$, nos\$, pronoun\$, case1\$

cnt = cnt + 1

cnt1 = cnt1 + 1

np(cnt) = n

perp\$(cnt) = per\$

nosp\$(cnt) = nos\$

pronounp\$(cnt) = pronoun\$

case1p\$(cnt) = case1\$

110 PAGE = PAGE + 1

130 If PAGE < 10 Then GoTo 80

MsgBox prompt:=(np(1) & " " & perp\$(1) & " " & nosp\$(1) & " " & pronounp\$(1) & " ") & " " & ((np(6) & " " & perp\$(6) & " " & nosp\$(6) & " " & pronounp\$(6) & " ") & " ") & (Chr\$(13)) & ((np(2) & " " & perp\$(2) & " " & nosp\$(2) & " " & pronounp\$(2) & " " & " ") & ((np(7) & " " & perp\$(7) & " " & nosp\$(7) & " " & pronounp\$(7)))), Title:=case1p\$(7) & " First and Sec"

MsgBox prompt:=(np(1) & " " & perp\$(3) & " " & nosp\$(3) & " " & pronounp\$(3) & " ") & " " & ((np(8) & " " & perp\$(8) & " " & nosp\$(8) & " " & pronounp\$(8) & " ") & " ") & (Chr\$(13)) & ((np(1) & " " & perp\$(4) & " " & nosp\$(4) & " " & pronounp\$(4) & " " & " ") & ((np(9) & " " & perp\$(9) & " " & nosp\$(9) & " " & pronounp\$(9)) & Chr\$(13) & np(1) & " " & perp\$(5) & " " & nosp\$(5) & " " & pronounp\$(5) & " ") & " " & ((np(10) & " " & perp\$(10) & " " & nosp\$(10) & " " & pronounp\$(10)))), Title:=case1p\$(9) & " Third"

G\$ = InputBox(prompt:="next group")

150 PAGE = 0

cnt = 0

160 GoTo 80

170 MsgBox prompt:=("count " & cnt1)

180 Close #2

190 End

End Sub