バイトの引き算

VBAを使ってバイトの定義された変数の引き算を行いたいのですが
以下のコードをするとオーバーフローしてしまいます。


Sub test()

Dim a As Byte
Dim b As Byte
Dim c As Integer

a = 50
b = 100


c = a - b


End Sub



この場合、

Dim d As Integer
d = a


c = d - b


とするしかないですか？
もっと良い方法があれば教えてください。

No.2 回答者： artoo 回答日時： 2015/02/27 21:49

byte型は0～255の数値のみです。

つまり負の数は駄目です。一方をInteger型にすれば良いので、
c = Cint(a)-b
ですね。
c = a+0-b
でもいいけど(Interger型である0と演算することで、結果がInteger型になる)。

No.1 回答者： tatsu99 回答日時： 2015/02/27 21:33

c = CInt(a) - b

としてください。