Imports System

Public Module Module1

    Public Sub Main()

        dim testStr as string = "SOYA/SUN ACID OIL // 844.981 /// 885.00"

        dim result as string = testStr.Substring(testStr.IndexOf("//")+3,testStr.IndexOf("///")- testStr.IndexOf("//")-3) 

        'testStr,testStr.IndexOf("//")+3,

        Console.WriteLine(result)

    End Sub

End Module