全角转半角

如果用户输入全角有时会很令人头疼，只有自己去把他转换成半角了。

Function ReplaceNum(Num)
     Num = Replace(Num,"１","1")
     Num = Replace(Num,"２","2")
     Num = Replace(Num,"３","3")
     Num = Replace(Num,"４","4")
     Num = Replace(Num,"５","5")
     Num = Replace(Num,"６","6")
     Num = Replace(Num,"７","7")
     Num = Replace(Num,"８","8")
     Num = Replace(Num,"９","9")
     Num = Replace(Num,"０","0")
     Num = Replace(Num,"．",".")
     Num = Replace(Num,"－","-")
     Num = Replace(Num,"％","%")
     Num = Replace(Num,"：",":")
     Num = Replace(Num,"；",";")
     Num = Replace(Num,"＄","$")
     Num = Replace(Num,"＋","+")
     Num = Replace(Num,"＝","=")
     Num = Replace(Num,"＊","*")
     Num = Replace(Num,"（","(")
     Num = Replace(Num,"）",")")
     Num = Replace(Num,"｛","{")
     Num = Replace(Num,"｝","}")
     Num = Replace(Num,"［","[")
     Num = Replace(Num,"］","]")
     Num = Replace(Num,"＇","'")
     Num = Replace(Num,"＜","<")
     Num = Replace(Num,"＞",">")
     Num = Replace(Num,"！","!")
     Num = Replace(Num,"～","~")
     Num = Replace(Num,"＆","&")
     Num = Replace(Num,"＃","#")
     Num = Replace(Num,"，",",")
     Num = Replace(Num,"　"," ")
     ReplaceNum = Num
End Function