I want to insert some symbols in the middle of the word

thanks but i want like this,but the belw code not working,

Mword.Selection.Text=sometext;
torepl='-';
wdl= Len(some)

If Len(Mword.Selection.Text) > 1 Then
         
 Mword.Selection.MoveLeft(Unit:=Word.WdUnits.wdCharacter, Count:=1)
 
 Mword.Selection.MoveLeft(Word.WdUnits.wdCharacter, CInt(wdl))

 Mword.Selection.InsertAfter(torepl)
                       
End If

my ouput
-----------

some-text

hi

It's simple

  string string1 = "secondword";

  string string2 = "second";

  string final = stringseparator(string1, string2,"-");

 private static string stringseparator(string string1, string string2, string separator)

        {

            string string1_part1 = string1.Substring(0, string1.IndexOf(string2));

            string string1_part2 = string1.Substring(string1.IndexOf(string2) + string2.Length, string1.Length - (string1.IndexOf(string2) + string2.Length));

            string1 = string2 + separator + string1_part2;

            return string1;

        }  

if it's helpful to you then please check Accepted Asnwers

Thanks