bir fonksiyon tanımlayıp case 3 ün içine cagırabilirsin.
function ozel_kapat()
if Session("OzelKapat") = True then
Response.Write(vbCrLf & "addHTML += ""Özel Mesaj Yazamassınız!"";")
end if
end function

case 3
ozel_kapat()
end select

gibi