Dim Cadena As String = "Uno/Dos" 'Este sera el texto que dividiremos
Dim CadenaSeparada As String() 'Aqui guardaremos nuestra cadena separada
Dim Separador As Char() = {"/"c} 'Este sera nuestro separador {"/"c} con eso
'definimos que queremos separar por ejemplo si ponemos una "," en vez de un "/"
'se separaria la cadena por "," cada "," seria una linea
x = Cadena.Split(Separador)'aqui separamos la cadena
MessageBox.Show(x(0) & " - " & x(1))