VBA 提取字符

Lareina_wol2

如何将D列提取从右往左第.3，4，5个数字，并填入C列
（需要VBA解决！）

见附件

cutecpu

Sub demo()
   [c6:c99].NumberFormat = "@"
   [c6:c99] = [left(right(d6:d99,5),3)]
End Sub

祝順心，南無阿彌陀佛！