[RESOLVED] qbasic read/data > VB6

[sessi4ml]

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

[Ember]

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

[sessi4ml]

Thanks Ember