If Label1.Caption  =  [irgendeinwort] and Option1 [nun, was schreibt man _
  da rein?,
 ich möchte dass wenn es markiert ist, ihr wisst schon, wie ein Option-Button _
 aussieht,
dann sollte sich eine MsgBox öffnen] (vll =true???)   then
MsgBox "[irgendetwas]"
end if