スキルアップ・問題解決なら、モーグにおまかせ！

すみませんが、教えてください。
下記のとおり、テキストフレームに日付を入れるコードを考えています。
 
そこで和暦であるeが一桁の場合にハイフンを入れるようにしたいので教えてください。
例　令和４年　→　　-４
　　令和１０年→　　１０
 
 
With Selection.ShapeRange
    With .TextFrame
         .Characters.Text = Format(Date, "e/mm/dd")
        .Characters.Font.Size = Stamp_width / 5
        .Characters.Font.ColorIndex = 3
        .HorizontalAlignment = xlHAlignCenter
        .VerticalAlignment = xlVAlignCenter
    End With
 
宜しくお願いします。

    Dim d As Date
    d = DateSerial(2032, 1, 20)
    d = Date
などとどちらであっても、共通に

.Characters.Text = Right("-" & Format(d, "e/mm/dd"), 8)

年だけでなく、日付についても１桁の場合はハイフン"−"を入れる仕様でした。
 
例：令和４年１月５日　　　−４／１／−５
　　令和４年１月１５日　　−４／１／１５
　　令和１０年１月５日　　１０／１／−５
　　令和１０年１月１５日　１０／１／１５
　　令和４年１０月５日　　−４／１０／−５
 
 
With Selection.ShapeRange
    With .TextFrame
         .Characters.Text = Format(Date, "e/mm/d")
        .Characters.Font.Size = Stamp_width / 5
        .Characters.Font.ColorIndex = 3
        .HorizontalAlignment = xlHAlignCenter
        .VerticalAlignment = xlVAlignCenter
    End With
 
すみませんがご教授ください。

MsgBox Split(Format(Date, "e-m-d"), "-")(0) & vbCrLf & _
       Split(Format(Date, "e-m-d"), "-")(1) & vbCrLf & _
       Split(Format(Date, "e-m-d"), "-")(2)
 
任意の分割してから
1. 文字[ - ]を足す
2. 右2文字を取ってくる
3. 文字列として結合する
なんてどうですか？

下記でどうでしょう。
 

Dom D As Date
D = Date
.Characters.Text = _
    Right(Format(D, "-e"),2) & Format(D, "/m/") & Right(Format(D, "-d"),2)

hatena様
 
うまくいきました。
ありがとうございます。
 
他の皆様のご協力いただきありがとうございました。(^^♪