'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

Informe um número inteiro: 16
O número informado foi: 16
O antecessor é 15
O sucessor é: 17