Hello ilkamalo,

You need to change your syntax a little, but it will work. You don't need the equal sign nor a couple of the parentheses..
Dim intButtond As Variant
Dim var1 As Variant
var1 = "mon"
  CreateObject("WScript.Shell").Popup "WRITE" & vbNewLine & var1, 3, "look", 0