エクセルで日付を扱う時に西暦でないと不都合がありそうな気がしますが、和暦でもきちんと認識してくれます。

Option Explicit

Public Sub ConvertWareki()
    Dim wareki As Date
    
    'wareki = ActiveSheet.Range("A1").Value
    '数字が全角でもきちんと認識される
    wareki = "令和２年１月１５日"
    MsgBox IsDate(wareki)
    '2020/1/15と表示
    ActiveSheet.Range("B1").Value = Format(wareki, "yyyy/MM/dd")
    '令和02/01/15と表示
    ActiveSheet.Range("C1").Value = Format(wareki, "gggee/MM/dd")
    
End Sub