an altenative code for substring function

				
//**************************************
// Name: an altenative code for substring function
// Description:Purpose of this little code is to give an alternative to the substring function .NET uses.
The code uses left and right functions of visual basic in order to find the substring of the entered string value... This is a console application.
// By: barkýn ünüulu
//
//This code is copyrighted and has// limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=1860&lngWId=10//for details.//**************************************

Imports Microsoft.VisualBasic
Module Module1
Sub Main()
Dim f As New find_substring()
Dim newstring As String
Dim beginlength As Long
Dim lastlength As Long
Console.WriteLine("ENTER THE STRING VALUE SUBJECT TO BE TRIMMED")
newstring = Console.ReadLine
Console.WriteLine("ENTER THE BEGINING VALUE OF THE STRING")
beginlength = Console.ReadLine
Console.WriteLine("ENTER THE LAST VALUE OF THE STRING")
lastlength = Console.ReadLine
'Console.Write(f.katar(beginlength, lastlength, newstring))
Console.Out.WriteLine(f.katar(beginlength, lastlength, newstring))
Console.ReadLine()
End Sub
End Module
Public Class find_substring
Dim firstlength As Long
Dim secondlength As Long
Dim thirdlength As Long
'Dim a As String
Dim b As String
Dim c As String
Dim d As String
Public Function katar(ByVal beginning As Long, ByVal ending As Long, ByVal a As String) As String
firstlength = Len(a)
secondlength = firstlength - (beginning - 1)
b = Right(a, secondlength)
c = Left(b, ending)
Return c
End Function
End Class