Problem with do.... loop

[Azkar]

x = 0
        Do Until x = users.Length
            'MsgBox("" & i & " " & x & " " & uid & "")

            If users(x) = uid Then
                spam2 = (spam2.Substring(spam2.IndexOf(inner)))
                MsgBox("MULTIPLE PERSON DETECTED")

                Exit Do
            Else
                If users(x) = users.Length Then
                    Exit Do
                End If

            End If
            x = x + 1

        Loop

using that do statement, im searching through an array, is seems to work because it picks up about the first 2 doubles, anyone know what i can do to fix this? or if theres a a problem with the syntax?

[crptcblade]

So it works, but you don't want it to?

[Edneeis]

Yes what exactly is the question?

It might be easier if you used a for each loop also:

Dim user As Object 'since your code doesn't show its type
For Each user in users
   If user=uid Then
       spam2 = (spam2.Substring(spam2.IndexOf(inner)))
       MsgBox("MULTIPLE PERSON DETECTED")
       Exit For
   End If
Next

[Azkar]

Hmmm, sorry, power just came back...


now, that part of the code works finds like 2 users, but then after that, it just doesnt seem to search the rest of the array

Edit: users is an array

[MrPolite]

Originally posted by Azkar
Hmmm, sorry, power just came back...


now, that part of the code works finds like 2 users, but then after that, it just doesnt seem to search the rest of the array

Edit: users is an array

hehe power came back? hmmmm!!

you should explain more. People don't always give you nice answers if you don't fully explain what you're talking about

[Lunatic3]

Originally posted by MrPolite
hehe power came back? hmmmm!!

Not that funny dude, i can guess where azkar comes from and there going out the electricity power is not at all unusual.

[Azkar]

right, big storm over here

[MrPolite]

ooh sorry I thought you were talking about the power of your brain

where do you live?

[Azkar]

Pittsburgh