怎样获取西欧字符(如Français)的ASCII码值？

[fordy]

做了个宏脚本导出Excel中的数据，如下函数是为了将字符转换为对应的十六进制表示的ASCII码值。
语句val = Asc(caracter)在caracter的ASCII码值>127时，则val=0。换用val = Ascw(caracter)也是同样结果...
不知道是不是跟系统有关系，使用的是英文版XP SP3， Office 2003
请教怎样得到西欧字符的ASCII码值，多谢了...

Private Function getHexa(caracter As String, nbDigit As Integer) As String
Dim i As Integer
Dim val As Integer
Dim tmp As Integer
Dim digit As Integer

'Get caracter value
val = Asc(caracter)

'Convert value in hexa string
getHexa = ""
'Print required digits
For i = 1 To nbDigit
tmp = Int(val / 16)
digit = val - tmp * 16
If digit < 10 Then
getHexa = Chr(digit + 48) & getHexa
Else
getHexa = Chr(digit + 55) & getHexa
End If
val = tmp
Next
End Function

[fordy]

这里没什么人气啊:(