sub irgendwas
dim a as string
 
   a="hallo"
   msgbox a         'es erscheint die erwartete Ausgabe "hallo"
   if chkEinfeld.Value = vbChecked then
      msgbox a        'Es erscheint nicht wie erwartet "hallo" sonder was _
        anderes
           ...
   end-if
end sub