Public Class TextOps
 
    Public Shared Function InsertText _
                  (ByVal text As System.Text.StringBuilder, _
                   ByVal textToInsert As String, startposition As Integer) As _
                   String
 
        Return text.Insert(startposition, textToInsert).ToString
    End Function
 
 
    Public Shared Function InsertText_
                  (ByVal text As String, _
                   ByVal textToInsert As String, startposition As Integer) As _
                   String
 
        Dim stb As New System.Text.StringBuilder(text)
        Return InsertText(stb, textToInsert, startposition)
    End Function
End Class