[RESOLVED] qbasic read/data > VB6

I am trying to convert my qbasic to vb6
Not sure how to convert the data statements.
Load them in an array?, ListBox?, other ?
Any ideas?
Dim ONENAME(19) As String
Dim TENNAME(9) As String
Dim TRIONAME(20) As String
Dim TRIO$

Rem ...... READ IN DATA
For I = 1 To 19: READ ONENAME(I): Next I
For I = 1 To 9: READ TENNAME(I): Next I

Rem ...... DATA
Data ONE, TWO, THREE, FOUR, FIVE
Data SIX, SEVEN, EIGHT, NINE, TEN
Data ELEVEN, TWELVE, THIRTEEN, FOURTEEN, FIFTEEN
Data SIXTEEN, SEVENTEEN, EIGHTEEN, NINETEEN

Data TEN, TWENTY, THIRTY, FORTY, FIFTY
Data SIXTY, SEVENTY, EIGHTY, NINETY

Data M, B, TR, QUADR, QUINT
Data SEXT, SEPT, Oct, NON, DEC
Data UNDEC, DUODEC, TREDEC, QUATTUORDEC, QUINDEC
Data SEXDEC, SEPTENDEC, OCTODEC, NOVEMDEC, VIGINT

Quote:

---

Originally Posted by sessi4ml

Data ONE, TWO, THREE, FOUR, FIVE
Data SIX, SEVEN, EIGHT, NINE, TEN
Data ELEVEN, TWELVE, THIRTEEN, FOURTEEN, FIFTEEN
Data SIXTEEN, SEVENTEEN, EIGHTEEN, NINETEEN

Data TEN, TWENTY, THIRTY, FORTY, FIFTY
Data SIXTY, SEVENTY, EIGHTY, NINETY

Data M, B, TR, QUADR, QUINT
Data SEXT, SEPT, Oct, NON, DEC
Data UNDEC, DUODEC, TREDEC, QUATTUORDEC, QUINDEC
Data SEXDEC, SEPTENDEC, OCTODEC, NOVEMDEC, VIGINT

---

If this is all data then paste it into a text file. Open the file and Split it: Split(expression[, delimiter])
The rest is ok outside of the For ... Next where you fill the arrays e.g: http://vbforums.com/showthread.php?t=443376

Thanks Ember