Dim AsianLangs
AsianLangs = array("JP")
'###########################################################
'# StrConv のクローンする関数
'#                                        作成 まっつん


'#              http://hp.vector.co.jp/authors/VA020411
'#              mattn@mail.goo.ne.jp
'###########################################################

'***************************************************
' StrConvUpperCase
'---------------------------------------------------
' 用途 : StrConv(sInp,vbUpperCase) のクローン
' 引数 : 変換する文字列
' 戻値 : 変換された文字列
'***************************************************
Function StrConvUpperCase(sInp)
	StrConvUpperCase = UCase(sInp)
End Function

'****************************************************
' StrConvNarrowOtherThanJP (Only for converting to single byte)
'****************************************************
Function StrConvNarrowOtherThanJP(s)

	Dim nCnt
	Dim nLen
	Dim sChr
	Dim sMud

	nLen = Len(s)
	For nCnt = 1 To nLen
		sChr = Mid(s,nCnt,1)
		sMud = Mid(s,nCnt+1,1) 
		If InStr("ﾞﾟ", sMud) Then
			sChr = sChr & sMud
			nCnt = nCnt + 1
		End If
		Select Case sChr
		Case "・"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "･"
		Case "　"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & " "
		Case "、"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "､"
		Case "。"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "｡"
		Case "，"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & ","
		Case "．"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "."
		Case "・"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "･"
		Case "："
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & ":"
		Case "；"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & ";"
		Case "？"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "?"
		Case "！"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "!"
		Case "゛"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾞ"
		Case "゜"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾟ"
		Case "｀"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "`"
		Case "＾"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "^"
		Case "＿"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "_"
		Case "ー"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｰ"
		Case "／"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "/"
		Case "～"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "~"
		Case "｜"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "|"
		Case "‘"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "'"
		Case "’"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "'"
		Case "“"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & """"
		Case "”"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & """"
		Case "（"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "("
		Case "）"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & ")"
		Case "［"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "["
		Case "］"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "]"
		Case "｛"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "{"
		Case "｝"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "}"
		Case "「"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "｢"
		Case "」"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "｣"
		Case "＋"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "+"
		Case "－"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "-"
		Case "・"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "･"
		Case "＝"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "="
		Case "＜"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "<"
		Case "＞"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & ">"
		Case "￥"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "\"
		Case "＄"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "$"
		Case "％"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "%"
		Case "＃"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "#"
		Case "＆"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "&"
		Case "＊"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "*"
		Case "＠"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "@"
		Case "・"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "･"
		Case "０"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "0"
		Case "１"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "1"
		Case "２"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "2"
		Case "３"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "3"
		Case "４"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "4"
		Case "５"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "5"
		Case "６"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "6"
		Case "７"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "7"
		Case "８"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "8"
		Case "９"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "9"
		Case "・"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "･"
		Case "Ａ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "A"
		Case "Ｂ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "B"
		Case "Ｃ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "C"
		Case "Ｄ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "D"
		Case "Ｅ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "E"
		Case "Ｆ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "F"
		Case "Ｇ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "G"
		Case "Ｈ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "H"
		Case "Ｉ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "I"
		Case "Ｊ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "J"
		Case "Ｋ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "K"
		Case "Ｌ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "L"
		Case "Ｍ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "M"
		Case "Ｎ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "N"
		Case "Ｏ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "O"
		Case "Ｐ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "P"
		Case "Ｑ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "Q"
		Case "Ｒ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "R"
		Case "Ｓ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "S"
		Case "Ｔ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "T"
		Case "Ｕ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "U"
		Case "Ｖ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "V"
		Case "Ｗ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "W"
		Case "Ｘ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "X"
		Case "Ｙ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "Y"
		Case "Ｚ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "Z"
		Case "・"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "･"
		Case "ａ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "a"
		Case "ｂ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "b"
		Case "ｃ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "c"
		Case "ｄ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "d"
		Case "ｅ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "e"
		Case "ｆ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "f"
		Case "ｇ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "g"
		Case "ｈ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "h"
		Case "ｉ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "i"
		Case "ｊ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "j"
		Case "ｋ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "k"
		Case "ｌ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "l"
		Case "ｍ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "m"
		Case "ｎ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "n"
		Case "ｏ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "o"
		Case "ｐ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "p"
		Case "ｑ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "q"
		Case "ｒ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "r"
		Case "ｓ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "s"
		Case "ｔ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "t"
		Case "ｕ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "u"
		Case "ｖ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "v"
		Case "ｗ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "w"
		Case "ｘ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "x"
		Case "ｙ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "y"
		Case "ｚ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "z"
		Case "・"

			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "･"
		Case "ァ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｧ"
		Case "ア"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｱ"
		Case "ィ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｨ"
		Case "イ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｲ"
		Case "ゥ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｩ"
		Case "ウ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｳ"
		Case "ェ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｪ"
		Case "エ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｴ"
		Case "ォ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｫ"
		Case "オ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｵ"
		Case "カ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｶ"
		Case "ガ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｶﾞ"
		Case "キ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｷ"
		Case "ギ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｷﾞ"
		Case "ク"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｸ"
		Case "グ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｸﾞ"
		Case "ケ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｹ"
		Case "ゲ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｹﾞ"
		Case "コ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｺ"
		Case "ゴ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｺﾞ"
		Case "サ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｻ"
		Case "ザ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｻﾞ"
		Case "シ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｼ"
		Case "ジ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｼﾞ"
		Case "ス"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｽ"
		Case "ズ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｽﾞ"
		Case "セ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｾ"
		Case "ゼ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｾﾞ"
		Case "ソ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｿ"
		Case "ゾ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｿﾞ"
		Case "タ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾀ"
		Case "ダ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾀﾞ"
		Case "チ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾁ"
		Case "ヂ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾁﾞ"
		Case "ッ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｯ"
		Case "ツ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾂ"
		Case "ヅ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾂﾞ"
		Case "テ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾃ"
		Case "デ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾃﾞ"
		Case "ト"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾄ"
		Case "ド"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾄﾞ"
		Case "ナ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾅ"
		Case "ニ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾆ"
		Case "ヌ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾇ"
		Case "ネ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾈ"
		Case "ノ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾉ"
		Case "ハ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾊ"
		Case "バ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾊﾞ"
		Case "パ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾊﾟ"
		Case "ヒ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾋ"
		Case "ビ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾋﾞ"
		Case "ピ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾋﾟ"
		Case "フ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾌ"
		Case "ブ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾌﾞ"
		Case "プ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾌﾟ"
		Case "ヘ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾍ"
		Case "ベ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾍﾞ"
		Case "ペ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾍﾟ"
		Case "ホ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾎ"
		Case "ボ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾎﾞ"
		Case "ポ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾎﾟ"
		Case "マ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾏ"
		Case "ミ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾐ"
		Case "・"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "･"
		Case "ム"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾑ"
		Case "メ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾒ"
		Case "モ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾓ"
		Case "ャ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｬ"
		Case "ヤ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾔ"
		Case "ュ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｭ"
		Case "ユ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾕ"
		Case "ョ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｮ"
		Case "ヨ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾖ"
		Case "ラ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾗ"
		Case "リ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾘ"
		Case "ル"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾙ"
		Case "レ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾚ"
		Case "ロ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾛ"
		Case "ワ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾜ"
		Case "ヲ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｦ"
		Case "ン"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ﾝ"
		Case "ヴ"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "ｳﾞ"
		Case "・"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "･"
		Case "￤"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "|"
		Case "＇"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "'"
		Case "＂"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & """"
		Case "・"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "･"
		Case "￤"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "|"
		Case "＇"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "'"
		Case "＂"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & """"
		Case "・"
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & "･"
		Case Else
			StrConvNarrowOtherThanJP = StrConvNarrowOtherThanJP & sChr
		End Select
	Next
End Function

'***************************************************
' StrConvLowerCase
'---------------------------------------------------
' 用途 : StrConv(sInp,vbLowerCase) のクローン
' 引数 : 変換する文字列
' 戻値 : 変換された文字列
'***************************************************
Function StrConvLowerCase(sInp)
	StrConvLowerCase = LCase(sInp)
End Function

'***************************************************
' StrConvProperCase
'---------------------------------------------------
' 用途 : StrConv(sInp,vbProperCase) のクローン
' 引数 : 変換する文字列
' 戻値 : 変換された文字列
'***************************************************
Function StrConvProperCase(sInp)
	Dim nPos
	Dim nSpc

	nPos = 1
	Do While InStr(nPos, sInp, " ", 1) <> 0
		nSpc = InStr(nPos, sInp, " ", 1)
		StrConvProperCase = StrConvProperCase & UCase(Mid(sInp, nPos, 1))
		StrConvProperCase = StrConvProperCase & LCase(Mid(sInp, nPos + 1, nSpc - nPos))
		nPos = nSpc + 1
	Loop

	StrConvProperCase = StrConvProperCase & UCase(Mid(sInp, nPos, 1))
	StrConvProperCase = StrConvProperCase & LCase(Mid(sInp, nPos + 1))
	StrConvProperCase = StrConvProperCase
End Function

'***************************************************
' StrConvWide
'---------------------------------------------------
' 用途 : StrConv(s,vbWide) のクローン
' 引数 : 変換する文字列
' 戻値 : 変換された文字列
'***************************************************
Function StrConvWide(s,manuallang)
dim i 
for i = 0  to UBound(AsianLangs) 
	if (AsianLangs(i) <> manuallang) then
		StrConvWide = s
		exit function
	end if
next
	Dim nCnt
	Dim nLen
	Dim sChr
	Dim sMud

	nLen = Len(s)
	For nCnt = 1 To nLen
		sChr = Mid(s,nCnt,1)
		sMud = Mid(s,nCnt+1,1) 
		If InStr("ﾞﾟ", sMud) Then
			sChr = sChr & sMud
			nCnt = nCnt + 1
		End If
		Select Case sChr
		Case " "
			StrConvWide = StrConvWide & "　"
		Case "!"
			StrConvWide = StrConvWide & "！"
		Case """"
			StrConvWide = StrConvWide & "＂"
		Case "#"
			StrConvWide = StrConvWide & "＃"
		Case "$"
			StrConvWide = StrConvWide & "＄"
		Case "%"
			StrConvWide = StrConvWide & "％"
		Case "&"
			StrConvWide = StrConvWide & "＆"
		Case "'"
			StrConvWide = StrConvWide & "＇"
		Case "("
			StrConvWide = StrConvWide & "（"
		Case ")"
			StrConvWide = StrConvWide & "）"
		Case "*"
			StrConvWide = StrConvWide & "＊"
		Case "+"
			StrConvWide = StrConvWide & "＋"
		Case ","
			StrConvWide = StrConvWide & "，"
		Case "-"
			StrConvWide = StrConvWide & "－"
		Case "."
			StrConvWide = StrConvWide & "．"
		Case "/"
			StrConvWide = StrConvWide & "／"
		Case "0"
			StrConvWide = StrConvWide & "０"
		Case "1"
			StrConvWide = StrConvWide & "１"
		Case "2"
			StrConvWide = StrConvWide & "２"
		Case "3"
			StrConvWide = StrConvWide & "３"
		Case "4"
			StrConvWide = StrConvWide & "４"
		Case "5"
			StrConvWide = StrConvWide & "５"
		Case "6"
			StrConvWide = StrConvWide & "６"
		Case "7"
			StrConvWide = StrConvWide & "７"
		Case "8"
			StrConvWide = StrConvWide & "８"
		Case "9"
			StrConvWide = StrConvWide & "９"
		Case ":"
			StrConvWide = StrConvWide & "："
		Case ";"
			StrConvWide = StrConvWide & "；"
		Case "<"
			StrConvWide = StrConvWide & "＜"
		Case "="
			StrConvWide = StrConvWide & "＝"
		Case ">"
			StrConvWide = StrConvWide & "＞"
		Case "?"
			StrConvWide = StrConvWide & "？"
		Case "@"
			StrConvWide = StrConvWide & "＠"
		Case "A"
			StrConvWide = StrConvWide & "Ａ"
		Case "B"
			StrConvWide = StrConvWide & "Ｂ"
		Case "C"
			StrConvWide = StrConvWide & "Ｃ"
		Case "D"
			StrConvWide = StrConvWide & "Ｄ"
		Case "E"
			StrConvWide = StrConvWide & "Ｅ"
		Case "F"
			StrConvWide = StrConvWide & "Ｆ"
		Case "G"
			StrConvWide = StrConvWide & "Ｇ"
		Case "H"
			StrConvWide = StrConvWide & "Ｈ"
		Case "I"
			StrConvWide = StrConvWide & "Ｉ"
		Case "J"
			StrConvWide = StrConvWide & "Ｊ"
		Case "K"
			StrConvWide = StrConvWide & "Ｋ"
		Case "L"
			StrConvWide = StrConvWide & "Ｌ"
		Case "M"
			StrConvWide = StrConvWide & "Ｍ"
		Case "N"
			StrConvWide = StrConvWide & "Ｎ"
		Case "O"
			StrConvWide = StrConvWide & "Ｏ"
		Case "P"
			StrConvWide = StrConvWide & "Ｐ"
		Case "Q"
			StrConvWide = StrConvWide & "Ｑ"
		Case "R"
			StrConvWide = StrConvWide & "Ｒ"
		Case "S"
			StrConvWide = StrConvWide & "Ｓ"
		Case "T"
			StrConvWide = StrConvWide & "Ｔ"
		Case "U"
			StrConvWide = StrConvWide & "Ｕ"
		Case "V"
			StrConvWide = StrConvWide & "Ｖ"
		Case "W"
			StrConvWide = StrConvWide & "Ｗ"
		Case "X"
			StrConvWide = StrConvWide & "Ｘ"
		Case "Y"
			StrConvWide = StrConvWide & "Ｙ"
		Case "Z"
			StrConvWide = StrConvWide & "Ｚ"
		Case "["
			StrConvWide = StrConvWide & "［"
		Case "]"
			StrConvWide = StrConvWide & "］"
		Case "^"
			StrConvWide = StrConvWide & "＾"
		Case "_"
			StrConvWide = StrConvWide & "＿"
		Case "`"
			StrConvWide = StrConvWide & "｀"
		Case "a"
			StrConvWide = StrConvWide & "ａ"
		Case "b"
			StrConvWide = StrConvWide & "ｂ"
		Case "c"
			StrConvWide = StrConvWide & "ｃ"
		Case "d"
			StrConvWide = StrConvWide & "ｄ"
		Case "e"
			StrConvWide = StrConvWide & "ｅ"
		Case "f"
			StrConvWide = StrConvWide & "ｆ"
		Case "g"
			StrConvWide = StrConvWide & "ｇ"
		Case "h"
			StrConvWide = StrConvWide & "ｈ"
		Case "i"
			StrConvWide = StrConvWide & "ｉ"
		Case "j"
			StrConvWide = StrConvWide & "ｊ"
		Case "k"
			StrConvWide = StrConvWide & "ｋ"
		Case "l"
			StrConvWide = StrConvWide & "ｌ"
		Case "m"
			StrConvWide = StrConvWide & "ｍ"
		Case "n"
			StrConvWide = StrConvWide & "ｎ"
		Case "o"
			StrConvWide = StrConvWide & "ｏ"
		Case "p"
			StrConvWide = StrConvWide & "ｐ"
		Case "q"
			StrConvWide = StrConvWide & "ｑ"
		Case "r"
			StrConvWide = StrConvWide & "ｒ"
		Case "s"
			StrConvWide = StrConvWide & "ｓ"
		Case "t"
			StrConvWide = StrConvWide & "ｔ"
		Case "u"
			StrConvWide = StrConvWide & "ｕ"
		Case "v"
			StrConvWide = StrConvWide & "ｖ"
		Case "w"
			StrConvWide = StrConvWide & "ｗ"
		Case "x"
			StrConvWide = StrConvWide & "ｘ"
		Case "y"
			StrConvWide = StrConvWide & "ｙ"
		Case "z"
			StrConvWide = StrConvWide & "ｚ"
		Case "{"
			StrConvWide = StrConvWide & "｛"
		Case "|"
			StrConvWide = StrConvWide & "｜"
		Case "}"
			StrConvWide = StrConvWide & "｝"
		Case "~"
			StrConvWide = StrConvWide & "～"
		Case "｡"
			StrConvWide = StrConvWide & "。"
		Case "｢"
			StrConvWide = StrConvWide & "「"
		Case "｣"
			StrConvWide = StrConvWide & "」"
		Case "､"
			StrConvWide = StrConvWide & "、"
		Case "･"
			StrConvWide = StrConvWide & "・"
		Case "ｦ"
			StrConvWide = StrConvWide & "ヲ"
		Case "ｧ"
			StrConvWide = StrConvWide & "ァ"
		Case "ｨ"
			StrConvWide = StrConvWide & "ィ"
		Case "ｩ"
			StrConvWide = StrConvWide & "ゥ"
		Case "ｪ"
			StrConvWide = StrConvWide & "ェ"
		Case "ｫ"
			StrConvWide = StrConvWide & "ォ"
		Case "ｬ"
			StrConvWide = StrConvWide & "ャ"
		Case "ｭ"
			StrConvWide = StrConvWide & "ュ"
		Case "ｮ"
			StrConvWide = StrConvWide & "ョ"
		Case "ｯ"
			StrConvWide = StrConvWide & "ッ"
		Case "ｰ"
			StrConvWide = StrConvWide & "ー"
		Case "ｱ"
			StrConvWide = StrConvWide & "ア"
		Case "ｲ"
			StrConvWide = StrConvWide & "イ"
		Case "ｳ"
			StrConvWide = StrConvWide & "ウ"
		Case "ｳﾞ"
			StrConvWide = StrConvWide & "ヴ"
		Case "ｴ"
			StrConvWide = StrConvWide & "エ"
		Case "ｵ"
			StrConvWide = StrConvWide & "オ"
		Case "ｶ"
			StrConvWide = StrConvWide & "カ"
		Case "ｶﾞ"
			StrConvWide = StrConvWide & "ガ"
		Case "ｷ"
			StrConvWide = StrConvWide & "キ"
		Case "ｷﾞ"
			StrConvWide = StrConvWide & "ギ"
		Case "ｸ"
			StrConvWide = StrConvWide & "ク"
		Case "ｸﾞ"
			StrConvWide = StrConvWide & "グ"
		Case "ｹ"
			StrConvWide = StrConvWide & "ケ"
		Case "ｹﾞ"
			StrConvWide = StrConvWide & "ゲ"
		Case "ｺ"
			StrConvWide = StrConvWide & "コ"
		Case "ｺﾞ"
			StrConvWide = StrConvWide & "ゴ"
		Case "ｻ"
			StrConvWide = StrConvWide & "サ"
		Case "ｻﾞ"
			StrConvWide = StrConvWide & "ザ"
		Case "ｼ"
			StrConvWide = StrConvWide & "シ"
		Case "ｼﾞ"
			StrConvWide = StrConvWide & "ジ"
		Case "ｽ"
			StrConvWide = StrConvWide & "ス"
		Case "ｽﾞ"
			StrConvWide = StrConvWide & "ズ"
		Case "ｾ"
			StrConvWide = StrConvWide & "セ"
		Case "ｾﾞ"
			StrConvWide = StrConvWide & "ゼ"
		Case "ｿ"
			StrConvWide = StrConvWide & "ソ"
		Case "ｿﾞ"
			StrConvWide = StrConvWide & "ゾ"
		Case "ﾀ"
			StrConvWide = StrConvWide & "タ"
		Case "ﾀﾞ"
			StrConvWide = StrConvWide & "ダ"
		Case "ﾁ"
			StrConvWide = StrConvWide & "チ"
		Case "ﾁﾞ"
			StrConvWide = StrConvWide & "ヂ"
		Case "ﾂ"
			StrConvWide = StrConvWide & "ツ"
		Case "ﾂﾞ"
			StrConvWide = StrConvWide & "ヅ"
		Case "ﾃ"
			StrConvWide = StrConvWide & "テ"
		Case "ﾃﾞ"
			StrConvWide = StrConvWide & "デ"
		Case "ﾄ"
			StrConvWide = StrConvWide & "ト"
		Case "ﾄﾞ"
			StrConvWide = StrConvWide & "ド"
		Case "ﾅ"
			StrConvWide = StrConvWide & "ナ"
		Case "ﾆ"
			StrConvWide = StrConvWide & "ニ"
		Case "ﾇ"
			StrConvWide = StrConvWide & "ヌ"
		Case "ﾈ"
			StrConvWide = StrConvWide & "ネ"
		Case "ﾉ"
			StrConvWide = StrConvWide & "ノ"
		Case "ﾊ"
			StrConvWide = StrConvWide & "ハ"
		Case "ﾊﾞ"
			StrConvWide = StrConvWide & "バ"
		Case "ﾊﾟ"
			StrConvWide = StrConvWide & "パ"
		Case "ﾋ"
			StrConvWide = StrConvWide & "ヒ"
		Case "ﾋﾞ"
			StrConvWide = StrConvWide & "ビ"
		Case "ﾋﾟ"
			StrConvWide = StrConvWide & "ピ"
		Case "ﾌ"
			StrConvWide = StrConvWide & "フ"
		Case "ﾌﾞ"
			StrConvWide = StrConvWide & "ブ"
		Case "ﾌﾟ"
			StrConvWide = StrConvWide & "プ"
		Case "ﾍ"
			StrConvWide = StrConvWide & "ヘ"
		Case "ﾍﾞ"
			StrConvWide = StrConvWide & "ベ"
		Case "ﾍﾟ"
			StrConvWide = StrConvWide & "ペ"
		Case "ﾎ"
			StrConvWide = StrConvWide & "ホ"
		Case "ﾎﾞ"
			StrConvWide = StrConvWide & "ボ"
		Case "ﾎﾟ"
			StrConvWide = StrConvWide & "ポ"
		Case "ﾏ"
			StrConvWide = StrConvWide & "マ"
		Case "ﾐ"
			StrConvWide = StrConvWide & "ミ"
		Case "ﾑ"
			StrConvWide = StrConvWide & "ム"
		Case "ﾒ"
			StrConvWide = StrConvWide & "メ"
		Case "ﾓ"
			StrConvWide = StrConvWide & "モ"
		Case "ﾔ"
			StrConvWide = StrConvWide & "ヤ"
		Case "ﾕ"
			StrConvWide = StrConvWide & "ユ"
		Case "ﾖ"
			StrConvWide = StrConvWide & "ヨ"
		Case "ﾗ"
			StrConvWide = StrConvWide & "ラ"
		Case "ﾘ"
			StrConvWide = StrConvWide & "リ"
		Case "ﾙ"
			StrConvWide = StrConvWide & "ル"
		Case "ﾚ"
			StrConvWide = StrConvWide & "レ"
		Case "ﾛ"
			StrConvWide = StrConvWide & "ロ"
		Case "ﾜ"
			StrConvWide = StrConvWide & "ワ"
		Case "ﾝ"
			StrConvWide = StrConvWide & "ン"
		Case "ﾞ"
			StrConvWide = StrConvWide & "゛"
		Case "ﾟ"
			StrConvWide = StrConvWide & "゜"
		Case " "
			StrConvWide = StrConvWide & "　"
		Case "!"
			StrConvWide = StrConvWide & "！"
		Case """"
			StrConvWide = StrConvWide & "＂"
		Case "#"
			StrConvWide = StrConvWide & "＃"
		Case "$"
			StrConvWide = StrConvWide & "＄"
		Case "%"
			StrConvWide = StrConvWide & "％"
		Case "&"
			StrConvWide = StrConvWide & "＆"
		Case "'"
			StrConvWide = StrConvWide & "＇"
		Case "("
			StrConvWide = StrConvWide & "（"
		Case ")"
			StrConvWide = StrConvWide & "）"
		Case "*"
			StrConvWide = StrConvWide & "＊"
		Case "+"
			StrConvWide = StrConvWide & "＋"
		Case ","
			StrConvWide = StrConvWide & "，"
		Case "-"
			StrConvWide = StrConvWide & "－"
		Case "."
			StrConvWide = StrConvWide & "．"
		Case "/"
			StrConvWide = StrConvWide & "／"
		Case "0"
			StrConvWide = StrConvWide & "０"
		Case "1"
			StrConvWide = StrConvWide & "１"
		Case "2"
			StrConvWide = StrConvWide & "２"
		Case "3"
			StrConvWide = StrConvWide & "３"
		Case "4"
			StrConvWide = StrConvWide & "４"
		Case "5"
			StrConvWide = StrConvWide & "５"
		Case "6"
			StrConvWide = StrConvWide & "６"
		Case "7"
			StrConvWide = StrConvWide & "７"
		Case "8"
			StrConvWide = StrConvWide & "８"
		Case "9"
			StrConvWide = StrConvWide & "９"
		Case ":"
			StrConvWide = StrConvWide & "："
		Case ";"
			StrConvWide = StrConvWide & "；"
		Case "<"
			StrConvWide = StrConvWide & "＜"
		Case "="
			StrConvWide = StrConvWide & "＝"
		Case ">"
			StrConvWide = StrConvWide & "＞"
		Case "?"
			StrConvWide = StrConvWide & "？"
		Case "@"
			StrConvWide = StrConvWide & "＠"
		Case "A"
			StrConvWide = StrConvWide & "Ａ"
		Case "B"
			StrConvWide = StrConvWide & "Ｂ"
		Case "C"
			StrConvWide = StrConvWide & "Ｃ"
		Case "D"
			StrConvWide = StrConvWide & "Ｄ"
		Case "E"
			StrConvWide = StrConvWide & "Ｅ"
		Case "F"
			StrConvWide = StrConvWide & "Ｆ"
		Case "G"
			StrConvWide = StrConvWide & "Ｇ"
		Case "H"
			StrConvWide = StrConvWide & "Ｈ"
		Case "I"
			StrConvWide = StrConvWide & "Ｉ"
		Case "J"
			StrConvWide = StrConvWide & "Ｊ"
		Case "K"
			StrConvWide = StrConvWide & "Ｋ"
		Case "L"
			StrConvWide = StrConvWide & "Ｌ"
		Case "M"
			StrConvWide = StrConvWide & "Ｍ"
		Case "N"
			StrConvWide = StrConvWide & "Ｎ"
		Case "O"
			StrConvWide = StrConvWide & "Ｏ"
		Case "P"
			StrConvWide = StrConvWide & "Ｐ"
		Case "Q"
			StrConvWide = StrConvWide & "Ｑ"
		Case "R"
			StrConvWide = StrConvWide & "Ｒ"
		Case "S"
			StrConvWide = StrConvWide & "Ｓ"
		Case "T"
			StrConvWide = StrConvWide & "Ｔ"
		Case "U"
			StrConvWide = StrConvWide & "Ｕ"
		Case "V"
			StrConvWide = StrConvWide & "Ｖ"
		Case "W"
			StrConvWide = StrConvWide & "Ｗ"
		Case "X"
			StrConvWide = StrConvWide & "Ｘ"
		Case "Y"
			StrConvWide = StrConvWide & "Ｙ"
		Case "Z"
			StrConvWide = StrConvWide & "Ｚ"
		Case "["
			StrConvWide = StrConvWide & "［"
		Case "]"
			StrConvWide = StrConvWide & "］"
		Case "^"
			StrConvWide = StrConvWide & "＾"
		Case "_"
			StrConvWide = StrConvWide & "＿"
		Case "`"
			StrConvWide = StrConvWide & "｀"
		Case "a"
			StrConvWide = StrConvWide & "ａ"
		Case "b"
			StrConvWide = StrConvWide & "ｂ"
		Case "c"
			StrConvWide = StrConvWide & "ｃ"
		Case "d"
			StrConvWide = StrConvWide & "ｄ"
		Case "e"
			StrConvWide = StrConvWide & "ｅ"
		Case "f"
			StrConvWide = StrConvWide & "ｆ"
		Case "g"
			StrConvWide = StrConvWide & "ｇ"
		Case "h"
			StrConvWide = StrConvWide & "ｈ"
		Case "i"
			StrConvWide = StrConvWide & "ｉ"
		Case "j"
			StrConvWide = StrConvWide & "ｊ"
		Case "k"
			StrConvWide = StrConvWide & "ｋ"
		Case "l"
			StrConvWide = StrConvWide & "ｌ"
		Case "m"
			StrConvWide = StrConvWide & "ｍ"
		Case "n"
			StrConvWide = StrConvWide & "ｎ"
		Case "o"
			StrConvWide = StrConvWide & "ｏ"
		Case "p"
			StrConvWide = StrConvWide & "ｐ"
		Case "q"
			StrConvWide = StrConvWide & "ｑ"
		Case "r"
			StrConvWide = StrConvWide & "ｒ"
		Case "s"
			StrConvWide = StrConvWide & "ｓ"
		Case "t"
			StrConvWide = StrConvWide & "ｔ"
		Case "u"
			StrConvWide = StrConvWide & "ｕ"
		Case "v"
			StrConvWide = StrConvWide & "ｖ"
		Case "w"
			StrConvWide = StrConvWide & "ｗ"
		Case "x"
			StrConvWide = StrConvWide & "ｘ"
		Case "y"
			StrConvWide = StrConvWide & "ｙ"
		Case "z"
			StrConvWide = StrConvWide & "ｚ"
		Case "{"
			StrConvWide = StrConvWide & "｛"
		Case "|"
			StrConvWide = StrConvWide & "｜"
		Case "}"
			StrConvWide = StrConvWide & "｝"
		Case "~"
			StrConvWide = StrConvWide & "～"
		Case "うﾞ"
			StrConvWide = StrConvWide & "ヴ"
		Case "かﾞ"
			StrConvWide = StrConvWide & "が"
		Case "きﾞ"
			StrConvWide = StrConvWide & "ぎ"
		Case "くﾞ"
			StrConvWide = StrConvWide & "ぐ"
		Case "けﾞ"
			StrConvWide = StrConvWide & "げ"
		Case "こﾞ"
			StrConvWide = StrConvWide & "ご"
		Case "さﾞ"
			StrConvWide = StrConvWide & "ざ"
		Case "しﾞ"
			StrConvWide = StrConvWide & "じ"
		Case "すﾞ"
			StrConvWide = StrConvWide & "ず"
		Case "せﾞ"
			StrConvWide = StrConvWide & "ぜ"
		Case "そﾞ"
			StrConvWide = StrConvWide & "ぞ"
		Case "たﾞ"
			StrConvWide = StrConvWide & "だ"
		Case "ちﾞ"
			StrConvWide = StrConvWide & "ぢ"
		Case "つﾞ"
			StrConvWide = StrConvWide & "づ"
		Case "てﾞ"
			StrConvWide = StrConvWide & "で"
		Case "とﾞ"
			StrConvWide = StrConvWide & "ど"
		Case "はﾞ"
			StrConvWide = StrConvWide & "ば"
		Case "はﾟ"
			StrConvWide = StrConvWide & "ぱ"
		Case "ひﾞ"
			StrConvWide = StrConvWide & "び"
		Case "ひﾟ"
			StrConvWide = StrConvWide & "ぴ"
		Case "ふﾞ"
			StrConvWide = StrConvWide & "ぶ"
		Case "ふﾟ"
			StrConvWide = StrConvWide & "ぷ"
		Case "へﾞ"
			StrConvWide = StrConvWide & "べ"
		Case "へﾟ"
			StrConvWide = StrConvWide & "ぺ"
		Case "ほﾞ"
			StrConvWide = StrConvWide & "ぼ"
		Case "ほﾟ"
			StrConvWide = StrConvWide & "ぽ"
		Case "ウﾞ"
			StrConvWide = StrConvWide & "ヴ"
		Case "カﾞ"
			StrConvWide = StrConvWide & "ガ"
		Case "キﾞ"
			StrConvWide = StrConvWide & "ギ"
		Case "クﾞ"
			StrConvWide = StrConvWide & "グ"
		Case "ケﾞ"
			StrConvWide = StrConvWide & "ゲ"
		Case "コﾞ"
			StrConvWide = StrConvWide & "ゴ"
		Case "サﾞ"
			StrConvWide = StrConvWide & "ザ"
		Case "シﾞ"
			StrConvWide = StrConvWide & "ジ"
		Case "スﾞ"
			StrConvWide = StrConvWide & "ズ"
		Case "セﾞ"
			StrConvWide = StrConvWide & "ゼ"
		Case "ソﾞ"
			StrConvWide = StrConvWide & "ゾ"
		Case "タﾞ"
			StrConvWide = StrConvWide & "ダ"
		Case "チﾞ"
			StrConvWide = StrConvWide & "ヂ"
		Case "ツﾞ"
			StrConvWide = StrConvWide & "ヅ"
		Case "テﾞ"
			StrConvWide = StrConvWide & "デ"
		Case "トﾞ"
			StrConvWide = StrConvWide & "ド"
		Case "ハﾞ"
			StrConvWide = StrConvWide & "バ"
		Case "ハﾟ"
			StrConvWide = StrConvWide & "パ"
		Case "ヒﾞ"
			StrConvWide = StrConvWide & "ビ"
		Case "ヒﾟ"
			StrConvWide = StrConvWide & "ピ"
		Case "フﾞ"
			StrConvWide = StrConvWide & "ブ"
		Case "フﾟ"
			StrConvWide = StrConvWide & "プ"
		Case "ヘﾞ"
			StrConvWide = StrConvWide & "ベ"
		Case "ヘﾟ"
			StrConvWide = StrConvWide & "ペ"
		Case "ホﾞ"
			StrConvWide = StrConvWide & "ボ"
		Case "ホﾟ"
			StrConvWide = StrConvWide & "ポ"
		Case "｡"
			StrConvWide = StrConvWide & "。"
		Case "｢"
			StrConvWide = StrConvWide & "「"
		Case "｣"
			StrConvWide = StrConvWide & "」"
		Case "､"
			StrConvWide = StrConvWide & "、"
		Case "･"
			StrConvWide = StrConvWide & "・"
		Case "ｦ"
			StrConvWide = StrConvWide & "ヲ"
		Case "ｧ"
			StrConvWide = StrConvWide & "ァ"
		Case "ｨ"
			StrConvWide = StrConvWide & "ィ"
		Case "ｩ"
			StrConvWide = StrConvWide & "ゥ"
		Case "ｪ"
			StrConvWide = StrConvWide & "ェ"
		Case "ｫ"
			StrConvWide = StrConvWide & "ォ"
		Case "ｬ"
			StrConvWide = StrConvWide & "ャ"
		Case "ｭ"
			StrConvWide = StrConvWide & "ュ"
		Case "ｮ"
			StrConvWide = StrConvWide & "ョ"
		Case "ｯ"
			StrConvWide = StrConvWide & "ッ"
		Case "ｰ"
			StrConvWide = StrConvWide & "ー"
		Case "ｱ"
			StrConvWide = StrConvWide & "ア"
		Case "ｲ"
			StrConvWide = StrConvWide & "イ"
		Case "ｳ"
			StrConvWide = StrConvWide & "ウ"
		Case "ｳﾞ"
			StrConvWide = StrConvWide & "ヴ"
		Case "ｴ"
			StrConvWide = StrConvWide & "エ"
		Case "ｵ"
			StrConvWide = StrConvWide & "オ"
		Case "ｶ"
			StrConvWide = StrConvWide & "カ"
		Case "ｶﾞ"
			StrConvWide = StrConvWide & "ガ"
		Case "ｷ"
			StrConvWide = StrConvWide & "キ"
		Case "ｷﾞ"
			StrConvWide = StrConvWide & "ギ"
		Case "ｸ"
			StrConvWide = StrConvWide & "ク"
		Case "ｸﾞ"
			StrConvWide = StrConvWide & "グ"
		Case "ｹ"
			StrConvWide = StrConvWide & "ケ"
		Case "ｹﾞ"
			StrConvWide = StrConvWide & "ゲ"
		Case "ｺ"
			StrConvWide = StrConvWide & "コ"
		Case "ｺﾞ"
			StrConvWide = StrConvWide & "ゴ"
		Case "ｻ"
			StrConvWide = StrConvWide & "サ"
		Case "ｻﾞ"
			StrConvWide = StrConvWide & "ザ"
		Case "ｼ"
			StrConvWide = StrConvWide & "シ"
		Case "ｼﾞ"
			StrConvWide = StrConvWide & "ジ"
		Case "ｽ"
			StrConvWide = StrConvWide & "ス"
		Case "ｽﾞ"
			StrConvWide = StrConvWide & "ズ"
		Case "ｾ"
			StrConvWide = StrConvWide & "セ"
		Case "ｾﾞ"
			StrConvWide = StrConvWide & "ゼ"
		Case "ｿ"
			StrConvWide = StrConvWide & "ソ"
		Case "ｿﾞ"
			StrConvWide = StrConvWide & "ゾ"
		Case "ﾀ"
			StrConvWide = StrConvWide & "タ"
		Case "ﾀﾞ"
			StrConvWide = StrConvWide & "ダ"
		Case "ﾁ"
			StrConvWide = StrConvWide & "チ"
		Case "ﾁﾞ"
			StrConvWide = StrConvWide & "ヂ"
		Case "ﾂ"
			StrConvWide = StrConvWide & "ツ"
		Case "ﾂﾞ"
			StrConvWide = StrConvWide & "ヅ"
		Case "ﾃ"
			StrConvWide = StrConvWide & "テ"
		Case "ﾃﾞ"
			StrConvWide = StrConvWide & "デ"
		Case "ﾄ"
			StrConvWide = StrConvWide & "ト"
		Case "ﾄﾞ"
			StrConvWide = StrConvWide & "ド"
		Case "ﾅ"
			StrConvWide = StrConvWide & "ナ"
		Case "ﾆ"
			StrConvWide = StrConvWide & "ニ"
		Case "ﾇ"
			StrConvWide = StrConvWide & "ヌ"
		Case "ﾈ"
			StrConvWide = StrConvWide & "ネ"
		Case "ﾉ"
			StrConvWide = StrConvWide & "ノ"
		Case "ﾊ"
			StrConvWide = StrConvWide & "ハ"
		Case "ﾊﾞ"
			StrConvWide = StrConvWide & "バ"
		Case "ﾊﾟ"
			StrConvWide = StrConvWide & "パ"
		Case "ﾋ"
			StrConvWide = StrConvWide & "ヒ"
		Case "ﾋﾞ"
			StrConvWide = StrConvWide & "ビ"
		Case "ﾋﾟ"
			StrConvWide = StrConvWide & "ピ"
		Case "ﾌ"
			StrConvWide = StrConvWide & "フ"
		Case "ﾌﾞ"
			StrConvWide = StrConvWide & "ブ"
		Case "ﾌﾟ"
			StrConvWide = StrConvWide & "プ"
		Case "ﾍ"
			StrConvWide = StrConvWide & "ヘ"
		Case "ﾍﾞ"
			StrConvWide = StrConvWide & "ベ"
		Case "ﾍﾟ"
			StrConvWide = StrConvWide & "ペ"
		Case "ﾎ"
			StrConvWide = StrConvWide & "ホ"
		Case "ﾎﾞ"
			StrConvWide = StrConvWide & "ボ"
		Case "ﾎﾟ"
			StrConvWide = StrConvWide & "ポ"
		Case "ﾏ"
			StrConvWide = StrConvWide & "マ"
		Case "ﾐ"
			StrConvWide = StrConvWide & "ミ"
		Case "ﾑ"
			StrConvWide = StrConvWide & "ム"
		Case "ﾒ"
			StrConvWide = StrConvWide & "メ"
		Case "ﾓ"
			StrConvWide = StrConvWide & "モ"
		Case "ﾔ"
			StrConvWide = StrConvWide & "ヤ"
		Case "ﾕ"
			StrConvWide = StrConvWide & "ユ"
		Case "ﾖ"
			StrConvWide = StrConvWide & "ヨ"
		Case "ﾗ"
			StrConvWide = StrConvWide & "ラ"
		Case "ﾘ"
			StrConvWide = StrConvWide & "リ"
		Case "ﾙ"
			StrConvWide = StrConvWide & "ル"
		Case "ﾚ"
			StrConvWide = StrConvWide & "レ"
		Case "ﾛ"
			StrConvWide = StrConvWide & "ロ"
		Case "ﾜ"
			StrConvWide = StrConvWide & "ワ"
		Case "ﾝ"
			StrConvWide = StrConvWide & "ン"
		Case "ﾞ"
			StrConvWide = StrConvWide & "゛"
		Case "ﾟ"
			StrConvWide = StrConvWide & "゜"
		Case Else
			StrConvWide = StrConvWide & sChr
		End Select
	Next
End Function

'***************************************************
' StrConvNarrow
'---------------------------------------------------
' 用途 : StrConv(s,vbNarrow) のクローン
' 引数 : 変換する文字列
' 戻値 : 変換された文字列
'***************************************************
Function StrConvNarrow(s,manuallang)
Dim i 
For i = 0  To UBound(AsianLangs)
	If (AsianLangs(i) <> manuallang) Then
		StrConvNarrow = s
		Exit Function
	End If
Next
	Dim nCnt
	Dim nLen
	Dim sChr
	Dim sMud

	nLen = Len(s)
	For nCnt = 1 To nLen
		sChr = Mid(s,nCnt,1)
		sMud = Mid(s,nCnt+1,1) 
		If InStr("ﾞﾟ", sMud) Then
			sChr = sChr & sMud
			nCnt = nCnt + 1
		End If
		Select Case sChr
		Case "・"
			StrConvNarrow = StrConvNarrow & "･"
		Case "　"
			StrConvNarrow = StrConvNarrow & " "
		Case "、"
			StrConvNarrow = StrConvNarrow & "､"
		Case "。"
			StrConvNarrow = StrConvNarrow & "｡"
		Case "，"
			StrConvNarrow = StrConvNarrow & ","
		Case "．"
			StrConvNarrow = StrConvNarrow & "."
		Case "・"
			StrConvNarrow = StrConvNarrow & "･"
		Case "："
			StrConvNarrow = StrConvNarrow & ":"
		Case "；"
			StrConvNarrow = StrConvNarrow & ";"
		Case "？"
			StrConvNarrow = StrConvNarrow & "?"
		Case "！"
			StrConvNarrow = StrConvNarrow & "!"
		Case "゛"
			StrConvNarrow = StrConvNarrow & "ﾞ"
		Case "゜"
			StrConvNarrow = StrConvNarrow & "ﾟ"
		Case "｀"
			StrConvNarrow = StrConvNarrow & "`"
		Case "＾"
			StrConvNarrow = StrConvNarrow & "^"
		Case "＿"
			StrConvNarrow = StrConvNarrow & "_"
		Case "ー"
			StrConvNarrow = StrConvNarrow & "ｰ"
		Case "／"
			StrConvNarrow = StrConvNarrow & "/"
		Case "～"
			StrConvNarrow = StrConvNarrow & "~"
		Case "｜"
			StrConvNarrow = StrConvNarrow & "|"
		Case "‘"
			StrConvNarrow = StrConvNarrow & "'"
		Case "’"
			StrConvNarrow = StrConvNarrow & "'"
		Case "“"
			StrConvNarrow = StrConvNarrow & """"
		Case "”"
			StrConvNarrow = StrConvNarrow & """"
		Case "（"
			StrConvNarrow = StrConvNarrow & "("
		Case "）"
			StrConvNarrow = StrConvNarrow & ")"
		Case "［"
			StrConvNarrow = StrConvNarrow & "["
		Case "］"
			StrConvNarrow = StrConvNarrow & "]"
		Case "｛"
			StrConvNarrow = StrConvNarrow & "{"
		Case "｝"
			StrConvNarrow = StrConvNarrow & "}"
		Case "「"
			StrConvNarrow = StrConvNarrow & "｢"
		Case "」"
			StrConvNarrow = StrConvNarrow & "｣"
		Case "＋"
			StrConvNarrow = StrConvNarrow & "+"
		Case "－"
			StrConvNarrow = StrConvNarrow & "-"
		Case "・"
			StrConvNarrow = StrConvNarrow & "･"
		Case "＝"
			StrConvNarrow = StrConvNarrow & "="
		Case "＜"
			StrConvNarrow = StrConvNarrow & "<"
		Case "＞"
			StrConvNarrow = StrConvNarrow & ">"
		Case "￥"
			StrConvNarrow = StrConvNarrow & "\"
		Case "＄"
			StrConvNarrow = StrConvNarrow & "$"
		Case "％"
			StrConvNarrow = StrConvNarrow & "%"
		Case "＃"
			StrConvNarrow = StrConvNarrow & "#"
		Case "＆"
			StrConvNarrow = StrConvNarrow & "&"
		Case "＊"
			StrConvNarrow = StrConvNarrow & "*"
		Case "＠"
			StrConvNarrow = StrConvNarrow & "@"
		Case "・"
			StrConvNarrow = StrConvNarrow & "･"
		Case "０"
			StrConvNarrow = StrConvNarrow & "0"
		Case "１"
			StrConvNarrow = StrConvNarrow & "1"
		Case "２"
			StrConvNarrow = StrConvNarrow & "2"
		Case "３"
			StrConvNarrow = StrConvNarrow & "3"
		Case "４"
			StrConvNarrow = StrConvNarrow & "4"
		Case "５"
			StrConvNarrow = StrConvNarrow & "5"
		Case "６"
			StrConvNarrow = StrConvNarrow & "6"
		Case "７"
			StrConvNarrow = StrConvNarrow & "7"
		Case "８"
			StrConvNarrow = StrConvNarrow & "8"
		Case "９"
			StrConvNarrow = StrConvNarrow & "9"
		Case "・"
			StrConvNarrow = StrConvNarrow & "･"
		Case "Ａ"
			StrConvNarrow = StrConvNarrow & "A"
		Case "Ｂ"
			StrConvNarrow = StrConvNarrow & "B"
		Case "Ｃ"
			StrConvNarrow = StrConvNarrow & "C"
		Case "Ｄ"
			StrConvNarrow = StrConvNarrow & "D"
		Case "Ｅ"
			StrConvNarrow = StrConvNarrow & "E"
		Case "Ｆ"
			StrConvNarrow = StrConvNarrow & "F"
		Case "Ｇ"
			StrConvNarrow = StrConvNarrow & "G"
		Case "Ｈ"
			StrConvNarrow = StrConvNarrow & "H"
		Case "Ｉ"
			StrConvNarrow = StrConvNarrow & "I"
		Case "Ｊ"
			StrConvNarrow = StrConvNarrow & "J"
		Case "Ｋ"
			StrConvNarrow = StrConvNarrow & "K"
		Case "Ｌ"
			StrConvNarrow = StrConvNarrow & "L"
		Case "Ｍ"
			StrConvNarrow = StrConvNarrow & "M"
		Case "Ｎ"
			StrConvNarrow = StrConvNarrow & "N"
		Case "Ｏ"
			StrConvNarrow = StrConvNarrow & "O"
		Case "Ｐ"
			StrConvNarrow = StrConvNarrow & "P"
		Case "Ｑ"
			StrConvNarrow = StrConvNarrow & "Q"
		Case "Ｒ"
			StrConvNarrow = StrConvNarrow & "R"
		Case "Ｓ"
			StrConvNarrow = StrConvNarrow & "S"
		Case "Ｔ"
			StrConvNarrow = StrConvNarrow & "T"
		Case "Ｕ"
			StrConvNarrow = StrConvNarrow & "U"
		Case "Ｖ"
			StrConvNarrow = StrConvNarrow & "V"
		Case "Ｗ"
			StrConvNarrow = StrConvNarrow & "W"
		Case "Ｘ"
			StrConvNarrow = StrConvNarrow & "X"
		Case "Ｙ"
			StrConvNarrow = StrConvNarrow & "Y"
		Case "Ｚ"
			StrConvNarrow = StrConvNarrow & "Z"
		Case "・"
			StrConvNarrow = StrConvNarrow & "･"
		Case "ａ"
			StrConvNarrow = StrConvNarrow & "a"
		Case "ｂ"
			StrConvNarrow = StrConvNarrow & "b"
		Case "ｃ"
			StrConvNarrow = StrConvNarrow & "c"
		Case "ｄ"
			StrConvNarrow = StrConvNarrow & "d"
		Case "ｅ"
			StrConvNarrow = StrConvNarrow & "e"
		Case "ｆ"
			StrConvNarrow = StrConvNarrow & "f"
		Case "ｇ"
			StrConvNarrow = StrConvNarrow & "g"
		Case "ｈ"
			StrConvNarrow = StrConvNarrow & "h"
		Case "ｉ"
			StrConvNarrow = StrConvNarrow & "i"
		Case "ｊ"
			StrConvNarrow = StrConvNarrow & "j"
		Case "ｋ"
			StrConvNarrow = StrConvNarrow & "k"
		Case "ｌ"
			StrConvNarrow = StrConvNarrow & "l"
		Case "ｍ"
			StrConvNarrow = StrConvNarrow & "m"
		Case "ｎ"
			StrConvNarrow = StrConvNarrow & "n"
		Case "ｏ"
			StrConvNarrow = StrConvNarrow & "o"
		Case "ｐ"
			StrConvNarrow = StrConvNarrow & "p"
		Case "ｑ"
			StrConvNarrow = StrConvNarrow & "q"
		Case "ｒ"
			StrConvNarrow = StrConvNarrow & "r"
		Case "ｓ"
			StrConvNarrow = StrConvNarrow & "s"
		Case "ｔ"
			StrConvNarrow = StrConvNarrow & "t"
		Case "ｕ"
			StrConvNarrow = StrConvNarrow & "u"
		Case "ｖ"
			StrConvNarrow = StrConvNarrow & "v"
		Case "ｗ"
			StrConvNarrow = StrConvNarrow & "w"
		Case "ｘ"
			StrConvNarrow = StrConvNarrow & "x"
		Case "ｙ"
			StrConvNarrow = StrConvNarrow & "y"
		Case "ｚ"
			StrConvNarrow = StrConvNarrow & "z"
		Case "・"
			StrConvNarrow = StrConvNarrow & "･"
		Case "ァ"
			StrConvNarrow = StrConvNarrow & "ｧ"
		Case "ア"
			StrConvNarrow = StrConvNarrow & "ｱ"
		Case "ィ"
			StrConvNarrow = StrConvNarrow & "ｨ"
		Case "イ"
			StrConvNarrow = StrConvNarrow & "ｲ"
		Case "ゥ"
			StrConvNarrow = StrConvNarrow & "ｩ"
		Case "ウ"
			StrConvNarrow = StrConvNarrow & "ｳ"
		Case "ェ"
			StrConvNarrow = StrConvNarrow & "ｪ"
		Case "エ"
			StrConvNarrow = StrConvNarrow & "ｴ"
		Case "ォ"
			StrConvNarrow = StrConvNarrow & "ｫ"
		Case "オ"
			StrConvNarrow = StrConvNarrow & "ｵ"
		Case "カ"
			StrConvNarrow = StrConvNarrow & "ｶ"
		Case "ガ"
			StrConvNarrow = StrConvNarrow & "ｶﾞ"
		Case "キ"
			StrConvNarrow = StrConvNarrow & "ｷ"
		Case "ギ"
			StrConvNarrow = StrConvNarrow & "ｷﾞ"
		Case "ク"
			StrConvNarrow = StrConvNarrow & "ｸ"
		Case "グ"
			StrConvNarrow = StrConvNarrow & "ｸﾞ"
		Case "ケ"
			StrConvNarrow = StrConvNarrow & "ｹ"
		Case "ゲ"
			StrConvNarrow = StrConvNarrow & "ｹﾞ"
		Case "コ"
			StrConvNarrow = StrConvNarrow & "ｺ"
		Case "ゴ"
			StrConvNarrow = StrConvNarrow & "ｺﾞ"
		Case "サ"
			StrConvNarrow = StrConvNarrow & "ｻ"
		Case "ザ"
			StrConvNarrow = StrConvNarrow & "ｻﾞ"
		Case "シ"
			StrConvNarrow = StrConvNarrow & "ｼ"
		Case "ジ"
			StrConvNarrow = StrConvNarrow & "ｼﾞ"
		Case "ス"
			StrConvNarrow = StrConvNarrow & "ｽ"
		Case "ズ"
			StrConvNarrow = StrConvNarrow & "ｽﾞ"
		Case "セ"
			StrConvNarrow = StrConvNarrow & "ｾ"
		Case "ゼ"
			StrConvNarrow = StrConvNarrow & "ｾﾞ"
		Case "ソ"
			StrConvNarrow = StrConvNarrow & "ｿ"
		Case "ゾ"
			StrConvNarrow = StrConvNarrow & "ｿﾞ"
		Case "タ"
			StrConvNarrow = StrConvNarrow & "ﾀ"
		Case "ダ"
			StrConvNarrow = StrConvNarrow & "ﾀﾞ"
		Case "チ"
			StrConvNarrow = StrConvNarrow & "ﾁ"
		Case "ヂ"
			StrConvNarrow = StrConvNarrow & "ﾁﾞ"
		Case "ッ"
			StrConvNarrow = StrConvNarrow & "ｯ"
		Case "ツ"
			StrConvNarrow = StrConvNarrow & "ﾂ"
		Case "ヅ"
			StrConvNarrow = StrConvNarrow & "ﾂﾞ"
		Case "テ"
			StrConvNarrow = StrConvNarrow & "ﾃ"
		Case "デ"
			StrConvNarrow = StrConvNarrow & "ﾃﾞ"
		Case "ト"
			StrConvNarrow = StrConvNarrow & "ﾄ"
		Case "ド"
			StrConvNarrow = StrConvNarrow & "ﾄﾞ"
		Case "ナ"
			StrConvNarrow = StrConvNarrow & "ﾅ"
		Case "ニ"
			StrConvNarrow = StrConvNarrow & "ﾆ"
		Case "ヌ"
			StrConvNarrow = StrConvNarrow & "ﾇ"
		Case "ネ"
			StrConvNarrow = StrConvNarrow & "ﾈ"
		Case "ノ"
			StrConvNarrow = StrConvNarrow & "ﾉ"
		Case "ハ"
			StrConvNarrow = StrConvNarrow & "ﾊ"
		Case "バ"
			StrConvNarrow = StrConvNarrow & "ﾊﾞ"
		Case "パ"
			StrConvNarrow = StrConvNarrow & "ﾊﾟ"
		Case "ヒ"
			StrConvNarrow = StrConvNarrow & "ﾋ"
		Case "ビ"
			StrConvNarrow = StrConvNarrow & "ﾋﾞ"
		Case "ピ"
			StrConvNarrow = StrConvNarrow & "ﾋﾟ"
		Case "フ"
			StrConvNarrow = StrConvNarrow & "ﾌ"
		Case "ブ"
			StrConvNarrow = StrConvNarrow & "ﾌﾞ"
		Case "プ"
			StrConvNarrow = StrConvNarrow & "ﾌﾟ"
		Case "ヘ"
			StrConvNarrow = StrConvNarrow & "ﾍ"
		Case "ベ"
			StrConvNarrow = StrConvNarrow & "ﾍﾞ"
		Case "ペ"
			StrConvNarrow = StrConvNarrow & "ﾍﾟ"
		Case "ホ"
			StrConvNarrow = StrConvNarrow & "ﾎ"
		Case "ボ"
			StrConvNarrow = StrConvNarrow & "ﾎﾞ"
		Case "ポ"
			StrConvNarrow = StrConvNarrow & "ﾎﾟ"
		Case "マ"
			StrConvNarrow = StrConvNarrow & "ﾏ"
		Case "ミ"
			StrConvNarrow = StrConvNarrow & "ﾐ"
		Case "・"
			StrConvNarrow = StrConvNarrow & "･"
		Case "ム"
			StrConvNarrow = StrConvNarrow & "ﾑ"
		Case "メ"
			StrConvNarrow = StrConvNarrow & "ﾒ"
		Case "モ"
			StrConvNarrow = StrConvNarrow & "ﾓ"
		Case "ャ"
			StrConvNarrow = StrConvNarrow & "ｬ"
		Case "ヤ"
			StrConvNarrow = StrConvNarrow & "ﾔ"
		Case "ュ"
			StrConvNarrow = StrConvNarrow & "ｭ"
		Case "ユ"
			StrConvNarrow = StrConvNarrow & "ﾕ"
		Case "ョ"
			StrConvNarrow = StrConvNarrow & "ｮ"
		Case "ヨ"
			StrConvNarrow = StrConvNarrow & "ﾖ"
		Case "ラ"
			StrConvNarrow = StrConvNarrow & "ﾗ"
		Case "リ"
			StrConvNarrow = StrConvNarrow & "ﾘ"
		Case "ル"
			StrConvNarrow = StrConvNarrow & "ﾙ"
		Case "レ"
			StrConvNarrow = StrConvNarrow & "ﾚ"
		Case "ロ"
			StrConvNarrow = StrConvNarrow & "ﾛ"
		Case "ワ"
			StrConvNarrow = StrConvNarrow & "ﾜ"
		Case "ヲ"
			StrConvNarrow = StrConvNarrow & "ｦ"
		Case "ン"
			StrConvNarrow = StrConvNarrow & "ﾝ"
		Case "ヴ"
			StrConvNarrow = StrConvNarrow & "ｳﾞ"
		Case "・"
			StrConvNarrow = StrConvNarrow & "･"
		Case "￤"
			StrConvNarrow = StrConvNarrow & "|"
		Case "＇"
			StrConvNarrow = StrConvNarrow & "'"
		Case "＂"
			StrConvNarrow = StrConvNarrow & """"
		Case "・"
			StrConvNarrow = StrConvNarrow & "･"
		Case "￤"
			StrConvNarrow = StrConvNarrow & "|"
		Case "＇"
			StrConvNarrow = StrConvNarrow & "'"
		Case "＂"
			StrConvNarrow = StrConvNarrow & """"
		Case "・"
			StrConvNarrow = StrConvNarrow & "･"
		Case Else
			StrConvNarrow = StrConvNarrow & sChr
		End Select
	Next
End Function

'***************************************************
' StrConvKatakana
'---------------------------------------------------
' 用途 : StrConv(s,vbKatakana) のクローン
' 引数 : 変換する文字列
' 戻値 : 変換された文字列
'***************************************************
Function StrConvKatakana(s)
	Dim nCnt
	Dim nLen
	Dim sChr
	Dim sMud

	nLen = Len(s)
	For nCnt = 1 To nLen
		sChr = Mid(s,nCnt,1)
		sMud = Mid(s,nCnt+1,1) 
		If InStr("ﾞﾟ", sMud) Then
			sChr = sChr & sMud
			nCnt = nCnt + 1
		End If
		Select Case sChr
		Case "ゝ"
			StrConvKatakana = StrConvKatakana & "ヽ"
		Case "ゞ"
			StrConvKatakana = StrConvKatakana & "ヾ"
		Case "ぁ"
			StrConvKatakana = StrConvKatakana & "ァ"
		Case "あ"
			StrConvKatakana = StrConvKatakana & "ア"
		Case "ぃ"
			StrConvKatakana = StrConvKatakana & "ィ"
		Case "い"
			StrConvKatakana = StrConvKatakana & "イ"
		Case "ぅ"
			StrConvKatakana = StrConvKatakana & "ゥ"
		Case "う"
			StrConvKatakana = StrConvKatakana & "ウ"
		Case "ぇ"
			StrConvKatakana = StrConvKatakana & "ェ"
		Case "え"
			StrConvKatakana = StrConvKatakana & "エ"
		Case "ぉ"
			StrConvKatakana = StrConvKatakana & "ォ"
		Case "お"
			StrConvKatakana = StrConvKatakana & "オ"
		Case "か"
			StrConvKatakana = StrConvKatakana & "カ"
		Case "が"
			StrConvKatakana = StrConvKatakana & "ガ"
		Case "き"
			StrConvKatakana = StrConvKatakana & "キ"
		Case "ぎ"
			StrConvKatakana = StrConvKatakana & "ギ"
		Case "く"
			StrConvKatakana = StrConvKatakana & "ク"
		Case "ぐ"
			StrConvKatakana = StrConvKatakana & "グ"
		Case "け"
			StrConvKatakana = StrConvKatakana & "ケ"
		Case "げ"
			StrConvKatakana = StrConvKatakana & "ゲ"
		Case "こ"
			StrConvKatakana = StrConvKatakana & "コ"
		Case "ご"
			StrConvKatakana = StrConvKatakana & "ゴ"
		Case "さ"
			StrConvKatakana = StrConvKatakana & "サ"
		Case "ざ"
			StrConvKatakana = StrConvKatakana & "ザ"
		Case "し"
			StrConvKatakana = StrConvKatakana & "シ"
		Case "じ"
			StrConvKatakana = StrConvKatakana & "ジ"
		Case "す"
			StrConvKatakana = StrConvKatakana & "ス"
		Case "ず"
			StrConvKatakana = StrConvKatakana & "ズ"
		Case "せ"
			StrConvKatakana = StrConvKatakana & "セ"
		Case "ぜ"
			StrConvKatakana = StrConvKatakana & "ゼ"
		Case "そ"
			StrConvKatakana = StrConvKatakana & "ソ"
		Case "ぞ"
			StrConvKatakana = StrConvKatakana & "ゾ"
		Case "た"
			StrConvKatakana = StrConvKatakana & "タ"
		Case "だ"
			StrConvKatakana = StrConvKatakana & "ダ"
		Case "ち"
			StrConvKatakana = StrConvKatakana & "チ"
		Case "ぢ"
			StrConvKatakana = StrConvKatakana & "ヂ"
		Case "っ"
			StrConvKatakana = StrConvKatakana & "ッ"
		Case "つ"
			StrConvKatakana = StrConvKatakana & "ツ"
		Case "づ"
			StrConvKatakana = StrConvKatakana & "ヅ"
		Case "て"
			StrConvKatakana = StrConvKatakana & "テ"
		Case "で"
			StrConvKatakana = StrConvKatakana & "デ"
		Case "と"
			StrConvKatakana = StrConvKatakana & "ト"
		Case "ど"
			StrConvKatakana = StrConvKatakana & "ド"
		Case "な"
			StrConvKatakana = StrConvKatakana & "ナ"
		Case "に"
			StrConvKatakana = StrConvKatakana & "ニ"
		Case "ぬ"
			StrConvKatakana = StrConvKatakana & "ヌ"
		Case "ね"
			StrConvKatakana = StrConvKatakana & "ネ"
		Case "の"
			StrConvKatakana = StrConvKatakana & "ノ"
		Case "は"
			StrConvKatakana = StrConvKatakana & "ハ"
		Case "ば"
			StrConvKatakana = StrConvKatakana & "バ"
		Case "ぱ"
			StrConvKatakana = StrConvKatakana & "パ"
		Case "ひ"
			StrConvKatakana = StrConvKatakana & "ヒ"
		Case "び"
			StrConvKatakana = StrConvKatakana & "ビ"
		Case "ぴ"
			StrConvKatakana = StrConvKatakana & "ピ"
		Case "ふ"
			StrConvKatakana = StrConvKatakana & "フ"
		Case "ぶ"
			StrConvKatakana = StrConvKatakana & "ブ"
		Case "ぷ"
			StrConvKatakana = StrConvKatakana & "プ"
		Case "へ"
			StrConvKatakana = StrConvKatakana & "ヘ"
		Case "べ"
			StrConvKatakana = StrConvKatakana & "ベ"
		Case "ぺ"
			StrConvKatakana = StrConvKatakana & "ペ"
		Case "ほ"
			StrConvKatakana = StrConvKatakana & "ホ"
		Case "ぼ"
			StrConvKatakana = StrConvKatakana & "ボ"
		Case "ぽ"
			StrConvKatakana = StrConvKatakana & "ポ"
		Case "ま"
			StrConvKatakana = StrConvKatakana & "マ"
		Case "み"
			StrConvKatakana = StrConvKatakana & "ミ"
		Case "む"
			StrConvKatakana = StrConvKatakana & "ム"
		Case "め"
			StrConvKatakana = StrConvKatakana & "メ"
		Case "も"
			StrConvKatakana = StrConvKatakana & "モ"
		Case "ゃ"
			StrConvKatakana = StrConvKatakana & "ャ"
		Case "や"
			StrConvKatakana = StrConvKatakana & "ヤ"
		Case "ゅ"
			StrConvKatakana = StrConvKatakana & "ュ"
		Case "ゆ"
			StrConvKatakana = StrConvKatakana & "ユ"
		Case "ょ"
			StrConvKatakana = StrConvKatakana & "ョ"
		Case "よ"
			StrConvKatakana = StrConvKatakana & "ヨ"
		Case "ら"
			StrConvKatakana = StrConvKatakana & "ラ"
		Case "り"
			StrConvKatakana = StrConvKatakana & "リ"
		Case "る"
			StrConvKatakana = StrConvKatakana & "ル"
		Case "れ"
			StrConvKatakana = StrConvKatakana & "レ"
		Case "ろ"
			StrConvKatakana = StrConvKatakana & "ロ"
		Case "ゎ"
			StrConvKatakana = StrConvKatakana & "ヮ"
		Case "わ"
			StrConvKatakana = StrConvKatakana & "ワ"
		Case "ゐ"
			StrConvKatakana = StrConvKatakana & "ヰ"
		Case "ゑ"
			StrConvKatakana = StrConvKatakana & "ヱ"
		Case "を"
			StrConvKatakana = StrConvKatakana & "ヲ"
		Case "ん"
			StrConvKatakana = StrConvKatakana & "ン"
		Case Else
			StrConvKatakana = StrConvKatakana & sChr
		End Select
	Next
End Function

'***************************************************
' StrConvHiragana
'---------------------------------------------------
' 用途 : StrConv(s,vbHiragana) のクローン
' 引数 : 変換する文字列
' 戻値 : 変換された文字列
'***************************************************
Function StrConvHiragana(s)
	Dim nCnt
	Dim nLen
	Dim sChr
	Dim sMud

	nLen = Len(s)
	For nCnt = 1 To nLen
		sChr = Mid(s,nCnt,1)
		sMud = Mid(s,nCnt+1,1) 
		If InStr("ﾞﾟ", sMud) Then
			sChr = sChr & sMud
			nCnt = nCnt + 1
		End If
		Select Case sChr
		Case "ヽ"
			StrConvHiragana = StrConvHiragana & "ゝ"
		Case "ヾ"
			StrConvHiragana = StrConvHiragana & "ゞ"
		Case "ァ"
			StrConvHiragana = StrConvHiragana & "ぁ"
		Case "ア"
			StrConvHiragana = StrConvHiragana & "あ"
		Case "ィ"
			StrConvHiragana = StrConvHiragana & "ぃ"
		Case "イ"
			StrConvHiragana = StrConvHiragana & "い"
		Case "ゥ"
			StrConvHiragana = StrConvHiragana & "ぅ"
		Case "ウ"
			StrConvHiragana = StrConvHiragana & "う"
		Case "ェ"
			StrConvHiragana = StrConvHiragana & "ぇ"
		Case "エ"
			StrConvHiragana = StrConvHiragana & "え"
		Case "ォ"
			StrConvHiragana = StrConvHiragana & "ぉ"
		Case "オ"
			StrConvHiragana = StrConvHiragana & "お"
		Case "カ"
			StrConvHiragana = StrConvHiragana & "か"
		Case "ガ"
			StrConvHiragana = StrConvHiragana & "が"
		Case "キ"
			StrConvHiragana = StrConvHiragana & "き"
		Case "ギ"
			StrConvHiragana = StrConvHiragana & "ぎ"
		Case "ク"
			StrConvHiragana = StrConvHiragana & "く"
		Case "グ"
			StrConvHiragana = StrConvHiragana & "ぐ"
		Case "ケ"
			StrConvHiragana = StrConvHiragana & "け"
		Case "ゲ"
			StrConvHiragana = StrConvHiragana & "げ"
		Case "コ"
			StrConvHiragana = StrConvHiragana & "こ"
		Case "ゴ"
			StrConvHiragana = StrConvHiragana & "ご"
		Case "サ"
			StrConvHiragana = StrConvHiragana & "さ"
		Case "ザ"
			StrConvHiragana = StrConvHiragana & "ざ"
		Case "シ"
			StrConvHiragana = StrConvHiragana & "し"
		Case "ジ"
			StrConvHiragana = StrConvHiragana & "じ"
		Case "ス"
			StrConvHiragana = StrConvHiragana & "す"
		Case "ズ"
			StrConvHiragana = StrConvHiragana & "ず"
		Case "セ"
			StrConvHiragana = StrConvHiragana & "せ"
		Case "ゼ"
			StrConvHiragana = StrConvHiragana & "ぜ"
		Case "ソ"
			StrConvHiragana = StrConvHiragana & "そ"
		Case "ゾ"
			StrConvHiragana = StrConvHiragana & "ぞ"
		Case "タ"
			StrConvHiragana = StrConvHiragana & "た"
		Case "ダ"
			StrConvHiragana = StrConvHiragana & "だ"
		Case "チ"
			StrConvHiragana = StrConvHiragana & "ち"
		Case "ヂ"
			StrConvHiragana = StrConvHiragana & "ぢ"
		Case "ッ"
			StrConvHiragana = StrConvHiragana & "っ"
		Case "ツ"
			StrConvHiragana = StrConvHiragana & "つ"
		Case "ヅ"
			StrConvHiragana = StrConvHiragana & "づ"
		Case "テ"
			StrConvHiragana = StrConvHiragana & "て"
		Case "デ"
			StrConvHiragana = StrConvHiragana & "で"
		Case "ト"
			StrConvHiragana = StrConvHiragana & "と"
		Case "ド"
			StrConvHiragana = StrConvHiragana & "ど"
		Case "ナ"
			StrConvHiragana = StrConvHiragana & "な"
		Case "ニ"
			StrConvHiragana = StrConvHiragana & "に"
		Case "ヌ"
			StrConvHiragana = StrConvHiragana & "ぬ"
		Case "ネ"
			StrConvHiragana = StrConvHiragana & "ね"
		Case "ノ"
			StrConvHiragana = StrConvHiragana & "の"
		Case "ハ"
			StrConvHiragana = StrConvHiragana & "は"
		Case "バ"
			StrConvHiragana = StrConvHiragana & "ば"
		Case "パ"
			StrConvHiragana = StrConvHiragana & "ぱ"
		Case "ヒ"
			StrConvHiragana = StrConvHiragana & "ひ"
		Case "ビ"
			StrConvHiragana = StrConvHiragana & "び"
		Case "ピ"
			StrConvHiragana = StrConvHiragana & "ぴ"
		Case "フ"
			StrConvHiragana = StrConvHiragana & "ふ"
		Case "ブ"
			StrConvHiragana = StrConvHiragana & "ぶ"
		Case "プ"
			StrConvHiragana = StrConvHiragana & "ぷ"
		Case "ヘ"
			StrConvHiragana = StrConvHiragana & "へ"
		Case "ベ"
			StrConvHiragana = StrConvHiragana & "べ"
		Case "ペ"
			StrConvHiragana = StrConvHiragana & "ぺ"
		Case "ホ"
			StrConvHiragana = StrConvHiragana & "ほ"
		Case "ボ"
			StrConvHiragana = StrConvHiragana & "ぼ"
		Case "ポ"
			StrConvHiragana = StrConvHiragana & "ぽ"
		Case "マ"
			StrConvHiragana = StrConvHiragana & "ま"
		Case "ミ"
			StrConvHiragana = StrConvHiragana & "み"
		Case "ム"
			StrConvHiragana = StrConvHiragana & "む"
		Case "メ"
			StrConvHiragana = StrConvHiragana & "め"
		Case "モ"
			StrConvHiragana = StrConvHiragana & "も"
		Case "ャ"
			StrConvHiragana = StrConvHiragana & "ゃ"
		Case "ヤ"
			StrConvHiragana = StrConvHiragana & "や"
		Case "ュ"
			StrConvHiragana = StrConvHiragana & "ゅ"
		Case "ユ"
			StrConvHiragana = StrConvHiragana & "ゆ"
		Case "ョ"
			StrConvHiragana = StrConvHiragana & "ょ"
		Case "ヨ"
			StrConvHiragana = StrConvHiragana & "よ"
		Case "ラ"
			StrConvHiragana = StrConvHiragana & "ら"
		Case "リ"
			StrConvHiragana = StrConvHiragana & "り"
		Case "ル"
			StrConvHiragana = StrConvHiragana & "る"
		Case "レ"
			StrConvHiragana = StrConvHiragana & "れ"
		Case "ロ"
			StrConvHiragana = StrConvHiragana & "ろ"
		Case "ヮ"
			StrConvHiragana = StrConvHiragana & "ゎ"
		Case "ワ"
			StrConvHiragana = StrConvHiragana & "わ"
		Case "ヰ"
			StrConvHiragana = StrConvHiragana & "ゐ"
		Case "ヱ"
			StrConvHiragana = StrConvHiragana & "ゑ"
		Case "ヲ"
			StrConvHiragana = StrConvHiragana & "を"
		Case "ン"
			StrConvHiragana = StrConvHiragana & "ん"
		Case Else
			StrConvHiragana = StrConvHiragana & sChr
		End Select
	Next
End Function

'***************************************************
' StrConvUnicode
'---------------------------------------------------
' 用途 : StrConv(s,vbUnicode) のクローン
' 引数 : 変換する文字列
' 戻値 : 変換された文字列
'***************************************************
Function StrConvUnicode(sInp)
	Dim nCnt
	Dim nLen
	Dim nAsc
	Dim nChr
	nLen = LenB(sInp)
	For nCnt = 1 To nLen
		nAsc = AscB(MidB(sInp, nCnt, 1))
		If (&h81 <= nAsc And nAsc <= &h9F) Or (&hE0 <= nAsc And nAsc <= &hEF) Then
			nChr = nAsc * 256 + AscB(MidB(sInp, nCnt+1, 1))
			StrConvUnicode = StrConvUnicode & Chr(nChr)
			nCnt = nCnt + 1
		Else
			StrConvUnicode = StrConvUnicode & Chr(AscB(MidB(sInp, nCnt, 1)))
		End If
	Next
End Function

'***************************************************
' StrConvFromUnicode
'---------------------------------------------------
' 用途 : StrConv(s,vbFromUnicode) のクローン
' 引数 : 変換する文字列
' 戻値 : 変換された文字列
'***************************************************
Function StrConvFromUnicode(sInp)
	Dim nCnt
	Dim nLen
	Dim nAsc
	nLen = Len(sInp)
	For nCnt = 1 to nLen
		nAsc = Asc(Mid(sInp, nCnt, 1))
		If nAsc And &hFF00 Then
			StrConvFromUnicode = StrConvFromUnicode & ChrB(Int(nAsc / 256) And &hFF)
			StrConvFromUnicode = StrConvFromUnicode & ChrB(nAsc And &hFF)
		Else
			StrConvFromUnicode = StrConvFromUnicode & ChrB(nAsc)
		End If
	Next
End Function

'***************************************************
' StrConv が使用する定数郡
'***************************************************
' Enum VbStrConv
Const vbUpperCase=1
Const vbLowerCase=2
Const vbProperCase=3
Const vbWide=4
Const vbNarrow=8
Const vbKatakana=16
Const vbHiragana=32
Const vbUnicode = 64
Const vbFromUnicode = 128

'***************************************************
' StrConv
'---------------------------------------------------
' 引数 : 変換する文字列,変換処理


' 戻値 : 変換された文字列
'***************************************************
Function StrConv(sInp,eCnv)
	StrConv = sInp
	' Cnv に対して処理を振り分け


	If eCnv And vbUpperCase Then
		StrConv = StrConvUpperCase(StrConv)
	End If
	If eCnv And vbLowerCase Then
		StrConv = StrConvLowerCase(StrConv)
	End If
	If eCnv = vbProperCase Then
		StrConv = StrConvProperCase(StrConv)
	End If
	If eCnv And vbWide Then
		StrConv = StrConvWide(StrConv)
	End If
	If eCnv And vbNarrow Then
		StrConv = StrConvNarrow(StrConv)
	End If
	If eCnv And vbKatakana Then
		StrConv = StrConvKatakana(StrConv)
	End If
	If eCnv And vbHiragana Then
		StrConv = StrConvHiragana(StrConv)
	End If
	If eCnv And vbUnicode Then
		StrConv = StrConvUnicode(StrConv)
	End If
	If eCnv And vbFromUnicode Then
		StrConv = StrConvFromUnicode(StrConv)
	End If
End Function


