Ищу лучшую функцию для вставки данных в строку

Global $Str="aaaabbbb"
MsgBox(0,'',__StringInsert($Str,"c",4))
Func __StringInsert($String,$ins,$Position)
	Local $aString=StringSplit($String,""),$ReturnStr
	For $i=1 To $aString[0]
		If $i=$Position Then
			$aString[$i]&=$ins
		EndIf
	Next
	For $i=1 To $aString[0]
		$ReturnStr&=$aString[$i]
	Next
	Return $ReturnStr
EndFunc

Local $sStr =  'aaaabbbb', $sInsert = 'c', $iPos = 4, $sNewStr

$sNewStr = StringLeft($sStr, $iPos) & $sInsert & StringTrimLeft($sStr, $iPos)
ConsoleWrite($sNewStr & @LF)

_StringInsert()

$Str = "aaaabbbb"
$x = "c"
$LenStr = StringLen($Str)

If $LenStr < 4 Then
   MsgBox(16, "Ошибка", "Строка содержит менее 4 символов")
   Exit
EndIf

If $LenStr = 4 Or $LenStr > 4 Then
   $NewStr_1 = StringMid($Str, 1, 4)
   $NewStr_2 = StringMid($Str, 5)
   $NewStr = $NewStr_1 & $x & $NewStr_2
   MsgBox(64, "", $NewStr)
EndIf

$str = 'aaaabbbb'
$in = 4
$str = StringLeft( $str, $in ) & 'c' & StringMid( $str, $in, StringLen( $str ) )