Hi Gerald,
You were close.
Manipulate[
Grid[
{{Style["a = " <> ToString@a, 20]},
{ContourPlot3D[x^2 + y^2 + a z^3 == 1, {x, -2, 2}, {y, -2, 2}, {z, -2, 2},
Mesh -> None,
ImageSize -> Medium]}
}],
{{a, -2, Style["a", 16]}, -2, 2}]
Also increased the size of the label for the control.