Dim i As Int32 i = cadena.IndexOf("-") Nombre1 = cadena.Substring(0, i) Nombre2 = cadena.Substring(i + 1, cadena.Length - i - 1))