Sub hh() Dim a Execute ("a=12") MsgBox a End Sub