Format cell activity not working

Hi All,

i am trying to fromat one cell, but it is throwing error.

Exception from HRESULT: 0x800AC472.

img for refrence

how to write vb script for formatting.