エクセルのN列のデータに10桁または11桁の電話番号が入っていますこのデータの右から4桁目と8桁目にハイフンを自動で挿入したいですVBAの記述はどうなりますでしょうか

Sub Sample()
    Application.ScreenUpdating = False
    Dim r As Long
    For r = 1 To Cells(Rows.Count, \u0026quot;N\u0026quot;).End(xlUp).Row
        Dim orgNum As String: orgNum = Cells(r, \u0026quot;N\u0026quot;).Value
        Cells(r, \u0026quot;N\u0026quot;).Value = Mid(orgNum, 1, 3) \u0026amp; \u0026quot;-\u0026quot; \u0026amp; Mid(orgNum, 4, 4) \u0026amp; \u0026quot;-\u0026quot; \u0026amp; Mid(orgNum, 8)
    Next
    Application.ScreenUpdating = True
End Sub