createExample[] := DynamicModule[{name = Null},
  Column[{
    InputField[Dynamic[name]],
    Button["OK",
     With[{name1 = name},
      CellPrint[ExpressionCell[
        Defer[name1 = 99999]
        , "Input"]]]
     ]
    }]
  ]