Function dhInsertChr(strData As String, strIn As String) As String

Dim i As Integer
Dim c As Integer
Dim k As Integer
Dim strTemp As String
Dim flag As Integer
Dim cc As String

flag = 1

'첫번째 글자를 변수에 담습니다
strTemp = Left$(strData, 1)
'글자를 헤아립니다.
k = Len(strData)
'두번째부터 마지막 글자까지 순환해
cc = " "
For i = 2 To k
'삽입할 문자와 연결해
    
    
    
    '공백의 갯수 확인
    If Mid$(strData, i, 1) = cc Then
        c = c + 1
    End If
    
    If c = 9 Then
        strTemp = strTemp & strIn & strIn & Mid$(strData, i, 1)
        c = 10
        flag = 2
    End If
    
    If c = 18 Then
        strTemp = strTemp & strIn & strIn & Mid$(strData, i, 1)
        c = 19
        flag = 2
    End If

    strTemp = strTemp & Mid$(strData, i, flag)
    flag = 1

Next i

'결과 반환
dhInsertChr = strTemp
End Function

'REPLACE([필드명], Chr(10), Chr(13) & Chr(10))

'http://www.td21.com/qna_old/3991

'업데이트 쿼리
'http://www.youtube.com/watch?v=RjIdUQarMMo