VB里有没有将一个字符插入一个字符串中的函数？？？？？？？

Question

自己写一个吧,估计用到mid,left,right几个函数

Answer 1

private function InsertStr(byval SourceStr as string ,byval insStr as string,byval lPosition ) as string 
    if lenx(sourcestr)>=lPosition then
        insertstr= left(sourcestr,lposition) & insstr & mid(sourcestr,lposition+1)
    else
        insertstr=sourcestr & insstr       
    end if
end function

Answer 2

sstr=left(sstr,10) & insstr & mid(sstr,11)

Answer 3

迟了点，思想和_1_ 相同，实现方法比fling_boy简单Private Function InsertStr(ByVal strSource As String, ByVal strIn As String, ByVal intPos As Integer) As String
'strSource 源字符串 strIn 插入字符串  intPos 需要插入的位置
'调用举例：a = InsertStr("1234567", "aaa", 5)
    InsertStr = Left(strSource, intPos - 1) & strIn & Mid(strSource, intPos)
End Function