do you mean s'thing like:

Option Explicit

Public globals(4) As Integer

Sub ReadGlobs()
'Fills the array globals with
'the data contained in a txt file.

Dim i%

Open "c:\globals.dat" For Input As #1
While Not EOF(1) And i <= UBound(globals)
Input #1, globals(i)
i = i + 1
Wend
Close #1

End Sub





keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


ehntd wrote:

http://www.excelforum.com/showthread...hreadid=273553