Verificando a existência de caracteres inválidos em uma string usando o método IndexOfAny

'Este exemplo mostra como usar o método IndexOfAny
'verificar a existência de caracteres inválidos em
'uma string

'Neste exemplo os caracteres inválidos são:
'"#", "$", "&" e "@"

Module Module1
  Sub Main()
    Dim frase As String = "Esta frase #contém caracteres" _
      & " invál@idos"
    Dim invalidos As Char() = New Char() {"#"c, "$"c, "&"c, "@"c}

    'verifica a existência dos caracteres inválidos na
    'string
    If frase.IndexOfAny(invalidos) <> -1 Then
      Console.WriteLine("A frase contém caracteres inválidos.")
    Else
      Console.WriteLine("A frase não contém caracteres inválidos.")
    End If

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module