For Each x In TB_UserAddress.Text For Each d In JustThisString If x = d Then GoTo Good Next MsgBox("Error Address", MsgBoxStyle.OkOnly, "Error") : Exit Sub Good: Next