Como quebrar uma string em suas partes usando um caractere ou substring como delimitador

'Este exemplo mostra como separar uma string usando
'um caractere ou uma substring como delimitador

Module Module1
  Sub Main()
    Dim frase As String = "Osmar::Goiânia::GO::Brasil"

    'vamos quebrar a string
    Dim palavras As String() = frase.Split(New String() _
      {"::"}, StringSplitOptions.RemoveEmptyEntries)

    'exibe o resultado
    For i As Integer = 0 To palavras.GetUpperBound(0) Step 1
      Console.WriteLine(palavras(i))
    Next

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