分享两个函数：关于向文本框光标处插入字符串和删除选定字串

--------------------编程问答-------------------- 沙发，接分感谢分享 --------------------编程问答-------------------- 直接做成控件，然后提供2个方法就更好了。支持分享。 --------------------编程问答--------------------

支持 --------------------编程问答--------------------     刚才测试时，发现第一个函数还是有些问题，现修改如下：
    '插入文本
    '可以实现向指定的文本框光标所在处插入指定文本，光标位置无需指定，根据文本框实际情况进行判断。
    Public Function InsertStr2Textbox(ByVal InsertString As String, ByVal curtextbox As TextBox) As Integer
        Dim start As Integer = curtextbox.SelectionStart
        Dim selStr As String = ""
        Dim substring As String = "" '用于存放删掉的前导子字符串
        Try
            '插入时判断选定文本是否大于0，如果大于0，则替换选定文本
            If curtextbox.SelectionLength > 0 Then
                selStr = curtextbox.SelectedText
                If start = 0 Then
                    substring = ""
                Else
                    substring = curtextbox.Text.Substring(0, start)
                End If

                curtextbox.Text = Replace(curtextbox.Text, curtextbox.SelectedText, "", start + 1, 1, CompareMethod.Text)
                curtextbox.Text = substring & curtextbox.Text
                curtextbox.SelectionStart = start
                curtextbox.Text = curtextbox.Text.Insert(start, InsertString)
            Else
                curtextbox.Text = curtextbox.Text.Insert(start, InsertString)
            End If

            curtextbox.Focus()
            curtextbox.SelectionStart = start + Len(InsertString)
            curtextbox.SelectionLength = 0
            Return 0
        Catch ex As Exception
            Return -1
        End Try

    End Function

补充：.NET技术 ,  VB.NET