Public Class clsRemove
 
    Public Sub Main()
 
        '****************************************************************************************
        ' Purpose:  Returns a string with the specified number of characters 
        ' removed starting at startIndex. If no Count is specified, the 
        ' remainder of string is removed
        '
        ' Syntax: 	Remove(startIndex[, count])
        '
        ' Parameter1: startIndex - Required - Integer (Zero-based) that indicates
        ' starting point for what to remove
        '
        ' Parameter2: count - Optional - Integer that specifies how many 
        ' characters should be removed. If count is not specified,
        ' all of the characters to right of and including startIndex are removed.
        '
        ' Result: string -  Returns a string with the specified number of characters 
        ' removed starting at startIndex. If no Count is specified, the 
        ' remainder of string is removed.
        '
        ' Quick Example:      Dim strRemoveExample As String = "This is a test string"
        ' Console.WriteLine(strRemoveExample.Remove(0,4))
        ' 'Returns "  is a test string"
        '
        '****************************************************************************************
 
        '****************************************************************************************
        ' Example #1: Remove(startIndex, count)
        ' Returns a string with the specified number of characters removed starting at startIndex.
        ' If no Count is specified, the remainder of string is removed
        '****************************************************************************************
 
        Console.WriteLine("Example #1: Remove(startIndex, count) ")
 
        Dim strRemoveExample As String = "This is a test string"
        Dim intIndexRemove As Integer = 0
 
        ' First find position of word test
        intIndexRemove = strRemoveExample.IndexOf("test")
 
        ' Remove rest of string starting with word "test"
        Console.WriteLine(strRemoveExample.Remove(intIndexRemove))
 
        'write blank line to make output easier to read
        Console.WriteLine()
        'Prevent console from closing before you press enter
        Console.ReadLine()
 
    End Sub
 
 
End Class

Module Module1
 
    Sub Main()
 
 
        Dim myclsRemove As New clsRemove
        myclsRemove.Main()
 
 
 
    End Sub
 
End Module