Code:
Public Sub TestNum()
Dim p As String
Dim q As String = frm_EnterInfo.TextBox1.Text
For Each p In c_TestArrayClass.NumArray
If p = q Then
frm_enterInfo.Label3.Text = "Found in Array"
Exit For
Else
frm_enterInfo.Label3.Text = "Not Found"
End If
Next
End Sub
Code:
For Each p In c_TestArrayClass.NumArray

