Como juntar todos os elementos de um array de strings em apenas uma string usando uma substring como delimitador

'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