ご回答ありがとうございました。
よく見ると Me.が抜けていたのと、あと少し違っていました。教えられたとおりにしたら正常に表示されました。
Me.は省略可能かと思っていました。
あと、IF 式 Then Label1.Forcolor=color.Red else Label1.Forecolor=Color.Black
というのを
IF 式 THEN
Me.Label1.Forecolor=color.Red
else
Me.Label1.Forecolor=Color.Black
end if
と書き換えたらうまくいきました。