
Function dhInsertChr(strData As String, strIn As String) As String

Dim i As Integer
Dim k As Integer
Dim strTemp As String
'첫번째 글자를 변수에 담습니다
strTemp = Left$(strData, 1)
'글자를 헤아립니다.
k = Len(strData)
'두번째부터 마지막 글자까지 순환해
For i = 2 To k
'삽입할 문자와 연결해


'글자수 +1이 i값으로 설정
If i = 49 Then
    strTemp = strTemp & strIn & strIn & Mid$(strData, i, 1)
    i = 50
End If

If i = 99 Then
    strTemp = strTemp & strIn & strIn & Mid$(strData, i, 1)
    i = 100
End If

strTemp = strTemp & Mid$(strData, i, 1)
Next i
'그 결과를 반환해 줍니다
dhInsertChr = strTemp
End Function