特定条件以外の場合に0埋めして値を置換する方法

Question

前提・実現したいこと

EXCELマクロを作成しておりますが、あるCSVファイルを読み込み、特定条件時以外の場合はセルの値を0埋めしたいと考えております。
ネット等にて調査いたしましたが、うまく0埋めされた値がEXCELにて表示されません。
ご存じの方がおられましたらご教示願います。

特定条件下ではセルの値を変更せず、特定条件以外の場合に3列目の値を0埋めしたいです。

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

結果表示が0埋めされない。

該当のソースコード

    For Y = 2 To nn + 1
        If wd Like "12345*" Then
             Cells(Y, 3).Value = Cells(Y, 3).Value
        ElseIf wd Like "23456*" Then
            Cells(Y, 3).Value = Cells(Y, 3).Value
        Else
            Cells(Y, 3).Value = Format(Cells(Y, 3).Value, "000000000")
        
        End If
        wd = Cells(Y + 1, 3).Value
    Next Y

試したこと

フォーマット関数、ライト関数で試しましたが、うまくいきません。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

セル型かな？
「標準」とか「数値」になっていませんか？
「文字列」に変更してみてください。

Comments

[kansai5963]

ありがとうございました。文字列に変換することでうまくいきました。

Answer 2

特定条件以外の場合に"000000000"　をセルに代入するだけで
実現できるのではないでしょうか。

For Y = 2 To nn + 1
    If Cells(Y, 3).Value Like "12345*" Then
    ElseIf Cells(Y, 3).Value Like "23456*" Then
    Else
        Cells(Y, 3).Value = "000000000"
    End If
Next Y