'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

Informe o valor para a linha 0 e coluna 0: 3
Informe o valor para a linha 0 e coluna 1: 7
Informe o valor para a linha 0 e coluna 2: 9
Informe o valor para a linha 1 e coluna 0: 2
Informe o valor para a linha 1 e coluna 1: 4
Informe o valor para a linha 1 e coluna 2: 1
Informe o valor para a linha 2 e coluna 0: 5
Informe o valor para a linha 2 e coluna 1: 6
Informe o valor para a linha 2 e coluna 2: 8

   3   7   9
   2   4   1
   5   6   8

A soma dos elementos da diagonal principal é: 15