Imports System
 
Public Class Test
 
Private Shared Function textmoves(mytext As String, indexchar As String)
    Dim Index As Integer = mytext.IndexOf(indexchar)
    Return Index
End Function
Private Shared Sub Splittext()
    Dim text As String = "FPO100200%10&FORD*"
    Dim a = text.Substring(0, textmoves(text, "%"))
    Console.WriteLine(a)
    Dim b = text.Substring(textmoves(text, "%")+1, textmoves(text, "&")-textmoves(text, "%")-1)
    Console.WriteLine(b)
End Sub
 
 
	Public Shared Sub Main()
		Splittext()
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CgpQcml2YXRlIFNoYXJlZCBGdW5jdGlvbiB0ZXh0bW92ZXMobXl0ZXh0IEFzIFN0cmluZywgaW5kZXhjaGFyIEFzIFN0cmluZykKICAgIERpbSBJbmRleCBBcyBJbnRlZ2VyID0gbXl0ZXh0LkluZGV4T2YoaW5kZXhjaGFyKQogICAgUmV0dXJuIEluZGV4CkVuZCBGdW5jdGlvbgpQcml2YXRlIFNoYXJlZCBTdWIgU3BsaXR0ZXh0KCkKICAgIERpbSB0ZXh0IEFzIFN0cmluZyA9ICJGUE8xMDAyMDAlMTAmRk9SRCoiCiAgICBEaW0gYSA9IHRleHQuU3Vic3RyaW5nKDAsIHRleHRtb3Zlcyh0ZXh0LCAiJSIpKQogICAgQ29uc29sZS5Xcml0ZUxpbmUoYSkKICAgIERpbSBiID0gdGV4dC5TdWJzdHJpbmcodGV4dG1vdmVzKHRleHQsICIlIikrMSwgdGV4dG1vdmVzKHRleHQsICImIiktdGV4dG1vdmVzKHRleHQsICIlIiktMSkKICAgIENvbnNvbGUuV3JpdGVMaW5lKGIpCkVuZCBTdWIKCgoJUHVibGljIFNoYXJlZCBTdWIgTWFpbigpCgkJU3BsaXR0ZXh0KCkKCUVuZCBTdWIKRW5kIENsYXNz