・使用不可文字が使われていた場合、その文字を返す関数 Case文のところは使用可能な文字リストと照らし合して都度メンテが必要かと Public Function chk_adn(str As String) As String On Error GoTo Err_Trap Dim i As Long Dim c As String Dim buf As St…