>>443-444
どうもそのようです
でまあやりたいことはこういうことなんですが
これをもっと最適化できないかなぁと

Dim a As Integer

a = Asc("あ")
Debug.Print Hex(a)
If a < 0 Then
    Debug.Print Hex((a And &HFF&) * &H100& Or (a + &H10000) \ &H100&)
Else
    Debug.Print Hex((a And &HFF&) * &H100& Or a \ &H100&)
End If