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