VBA) 전각문자 치환

Public Function WideReplace(Source as string) as string
Dim iStart as Integer
Dim Target as String
Dim sTemp as String

For iStart = 1 To Len(Source)
sTemp = Mid(Source, iStart, 1)
'전각을 반각으로 변환 후 합침
Target = Target & StrConv(sTemp, vbNarrow)
Next iStart

WideReplace = Target

End Function