'Este exemplo mostra como juntar todos os elementos de
'um array de strings em uma string apenas usando uma
'substring como delimitador

Module Module1
  Sub Main()
    ' cria um array de strings
    Dim cidades() As String = {"Goiânia", "Anapólis", _
       "Rio Verde"}

    'vamos juntar tudo em uma string usando :: como
    'delimitador
    Dim res = String.Join("::", cidades)

    'exibe o resultado
    Console.WriteLine(res)

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

Informe a duração do evento em segundos: 3712
Duração do evento: 01:01:52

' declara, constrói e inicializa um vetor de 10 inteiros
Dim valores As Integer() = {4, 21, 9, 8, 12, 21, 4, 4, 1, 10}

Informe um valor: 4
O valor foi encontrado: 3 vezes

Informe um valor: 8
O valor foi encontrado: 1 vezes

Informe um valor: 3
O valor foi encontrado: 0 vezes