SelectionStart
這個就是返回妳當前光標所在文本框的位置，註意位置從0開始計算（就是光標在最左邊，返回0）。
然後，需要用到Len()函數，獲得文本框當前的字符數。
基本思路：
獲得：光標所在位置，SelectionStart
把原來的字符，按照 SelectionStart 值，分成前後兩部分，這樣把：
前部分與S 與後部分連接起來，賦值給文本框。
代碼如下：
TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, TextBox1.SelectionStart) & s & Microsoft.VisualBasic.Right(TextBox1.Text, Len(TextBox1.Text) - TextBox1.SelectionStart)