エラーの原因を知りたいです

Question

前提・実現したいこと

VBAについての質問です。
始めたばかりで基礎的な知識もまだまだですので、的外れな質問をしてしまっていたら申し訳ありません。
A１は100：00という値が入っています。

発生している問題・エラーメッセージ

実行時エラー'1004':アプリケーション定義またはオブジェクト定義のエラーです。　

該当のソースコード

Sub マクロ()

Dim X, Y
    X = Range("A1").Text
    Y = "=TEXT(" & CStr(X) & ",""[h].m"")"

Range("A3").Formula = Y

End Sub

Answer 1

これでどうでしょうか。

    Y = "=TEXT(""" & CStr(X) & """,""[h].m"")"

Comments

[hrdm]

ありがとうございます。無事エラーを解決できました。