Notebook[List[Cell[BoxData[FormBox[RowBox[List["1.5", " ", "mm", "\[Times]", FractionBox[RowBox[List["d", " ", SubscriptBox["B", "R"]]], RowBox[List["d", " ", "z"]]]]], TraditionalForm]], "Input"]]]