Trying to paste sub procedure into A97 global module - code lines show up red

[MLH]

I'm trying to paste the following sub into an A97 global module.
Code lines failing to compile show up in red immediately. The 3
lines referencing "Array" are the one's failing. Sorry for the news
reader wrapping in the first line...

Sub ParseTokens (Array() As String, ByVal sTokens As String, ByVal
sDelim As String)
'************************************************* ************
' SUB NAME: ParseTokens
'
' PURPOSE:
' Extracts information from a delimited list of items and places
' it in an array. Called by Function SendMail.
'
' INPUT PARAMETERS:
' Array(): A one-dimensional array of strings in which the parsed
' tokens will be place
' sTokens: A delimited list of tokens
' sDelim: The delimiter used to delimit sTokens
'
' RETURN
' None
'
'************************************************* ************
Dim i As Integer
For i = LBound(Array) To UBound(Array)
Array(i) = GetToken(sTokens, sDelim)
Next

End Sub

[MLH]

BTW... The same code in Access Basic has no problem.
I must have the A97 VBA syntax wrong.

[pietlinden]

Hmm... any reason the SPLIT function won't work for you?

[Rick Brandt]

pi********@hotmail.com wrote:

Hmm... any reason the SPLIT function won't work for you?

Access 97 doesn't have it.

--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com

[MLH]

That's reason enough for me.

[Mike Preston]

On Wed, 05 Oct 2005 19:05:23 -0400, MLH <CR**@NorthState.net> wrote:

I'm trying to paste the following sub into an A97 global module.
Code lines failing to compile show up in red immediately. The 3
lines referencing "Array" are the one's failing. Sorry for the news
reader wrapping in the first line...

Sub ParseTokens (Array() As String, ByVal sTokens As String, ByVal
sDelim As String)
'************************************************ *************
' SUB NAME: ParseTokens
'
' PURPOSE:
' Extracts information from a delimited list of items and places
' it in an array. Called by Function SendMail.
'
' INPUT PARAMETERS:
' Array(): A one-dimensional array of strings in which the parsed
' tokens will be place
' sTokens: A delimited list of tokens
' sDelim: The delimiter used to delimit sTokens
'
' RETURN
' None
'
'************************************************ *************
Dim i As Integer
For i = LBound(Array) To UBound(Array)
Array(i) = GetToken(sTokens, sDelim)
Next

End Sub

Could it be that Array is a reserved word?

mike

[MLH]

You hit the nail dead on the head. Many thx!
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Could it be that Array is a reserved word?

mike