色々といじって分かった事
　　　　
　　１　直接記述すると、編集ＯＫでした。
　          Dim formatted As String = Format(value, "\\#,##0.000") ' "O.K（ロケールに依存）
            Me.Text = formatted

　　２　ワンクッション置くとＮＧでした。
            Dim formatted As String = Format(value, _format2) '     "  ￥1,234.56"（ロケールに依存）
            Me.Text = formatted

　　　　　上記の様になりました。