How can I test if a specific string is in an array (of strings) in VBA?

[mattk62586]

So say I have an array which contains an arbitrary number of strings:

Dim someArray() As String
Dim someStr As String
Dim c as Boolean

Now I want to test someStr for membership to someArray.
Is there some method like this I can use?

c = someStr.IsMemeber(someArray)

or maybe:

c = someArray.Contains(someStr)

Thanks.

[vb5prgrmr]

Looks like you have been looking at a bunch of .NET code...

You will need to create a function for this in VB6.0...

Something like...

Private Function DoesStringExistInArray(StringToCheckFor, As String, ArrayToCheck() As String) As Boolean

On Error GoTo DoesStringExistInArrayError

Dim LB As Integer, UB As Integer, LoopCnt As Integer

'Check to see if the array is a dynamic array that has not been dimensioned yet
If Not ArrayToCheck Then Exit Function 'no need to see function to false as a function is by default = to false

'okay, if we are here then the array has been dimensioned, so retrieve its bounds
LB = LBound(ArrayToCheck)
UB = UBound(ArrayToCheck)

'now loop through array to see if string exists...
For LoopCnt = LB To UB
  If StringToCheckFor = ArrayToCheck(LoopCnt) Then
    DoesStringExistInArray = True
    Exit Function
  End If
Next LoopCnt

Exit Function
DoesStringExistInArrayError:

MsgBox "FormModuleName.DoesStringExistInArray " & Err.Number & ":" & Err.Description

End Function

Good Luck