boas pessoal, estou a tentar fazer uma programinha mas não consigo por a funcionar , dá erro e assim se eu inserir o numero 1,2, 3 funciona bem e chama a form1.show, mas eu quero k se por exemplo eu digitar 4 ele me dÊ uma mensagem de erro. então tentei "algoritmo 2". algoritmo 1 Dim i As Integer Dim usuario(100) As Integer usuario(1) = "1" usuario(2) = "2" usuario(3) = "3" For i = 0 To 100 If usuario(i) = TextBox1.Text Then Form1.Show() TextBox2.Text = i End If Next algoritmo 2- aki ele nunca para o ciclo e esta sempre aparecer mensagem não contem na lista. Dim i As Integer Dim usuario(100) As Integer usuario(1) = "1" usuario(2) = "2" usuario(3) = "3" For i = 0 To 100 If usuario(i) = TextBox1.Text Then Form1.Show() TextBox2.Text = i Else MsgBox("não contem na lista") End If Next como posso resolver este caso