ExcelVBAで全角を半角に変換するにはStrConv()

Excelの全角->半角変換関数であるASC()はVBAだと指定した文字の文字コード (Shift_JIS) を返す関数なので注意。

StrConv(文字列,vbNarrow);