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