Public Class clsInsert
 
    Public Sub Main()
 
 
        '****************************************************************************************
        ' Purpose:  Returns a string with the specified string inserted beginning at 
        ' the specified position.
        '
        ' Syntax: 	string.Insert(startIndex, stringtoinsert)
        '
        ' Parameter1: string - Required - string that you want to insert something into
        '
        ' Parameter2: startIndex - Optional. specifies where to start looking. Zero-based.
        '
        ' Parameter3: stringtoinsert - Required - string that you are trying to 
        ' insert into parameter1
        '
        ' Result: string - Returns a string with the specified string inserted beginning at 
        ' the specified position.
        '
        ' Quick Example:    Dim strInsertExample As String = "This is a test string"
        ' Dim intIndex As Integer = 0
        ' ' First find position of word test
        ' intIndex = strInsertExample.IndexOf("test")
        ' ' Insert "simple" before "test"
        ' Console.WriteLine(strInsertExample.Insert(intIndex, "simple "))
        '
        '****************************************************************************************
 
        Console.WriteLine("Example #1: string.Insert(startIndex, stringtoinsert) ")
 
        Dim strInsertExample As String = "This is a test string"
        Dim intIndex As Integer = 0
 
        ' First find position of word test
        intIndex = strInsertExample.IndexOf("test")
 
        ' Insert "simple" before "test"
        Console.WriteLine(strInsertExample.Insert(intIndex, "simple "))
 
        '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 myclsInsert As New clsInsert
        myclsInsert.Main()
 
 
 
    End Sub
 
End Module