将字符串转换为半角。

例如：

'''
Dim Val As String
Val = StrToNarrow("１２３")
Output.show(Val)

结果为：123