市外局番に自動ハイフン

Question

固定電話の市外局番に自動ハイフンをユーザーフォーム上でふりたいので、くみました。
2桁、3桁まで対応してますが、4桁、5桁にも対応したいのですが、なにかありますか。よろしくお願いしますDim tempresa_tel As String, tempresa_tel2 As String, tempresa_tel3 As String
Dim i As Integer, j As Integer, n As Integer
Dim ddd1 As String, ddd2 As String
tempresa_tel = TextBox固定電話.Value
TextBox固定電話.MaxLength = 12
i = Len(tempresa_tel)
For j = 1 To i
If IsNumeric(Mid(tempresa_tel, j, 1)) Then
tempresa_tel2 = tempresa_tel2 & Mid(tempresa_tel, j, 1)
End If
Next
i = Len(tempresa_tel2)
For j = 1 To i
tempresa_tel3 = tempresa_tel3 & Mid(tempresa_tel2, j, 1)
ddd1 = Left(tempresa_tel, 2)
If ddd1 = "03" Or ddd1 = "06" Then
If j = 3 Or j = 7 Then
n = Len(tempresa_tel3) - 1
tempresa_tel3 = Left(tempresa_tel3, n) & "-" & Right(tempresa_tel3, 1)
End If
ElseIf ddd1 <> "03" Or ddd1 <> "06" Then
If j = 4 Or j = 7 Then
n = Len(tempresa_tel3) - 1
tempresa_tel3 = Left(tempresa_tel3, n) & "-" & Right(tempresa_tel3, 1)
End If
End If
Next
TextBox固定電話.Value = tempresa_tel3

if文では難しいと思うので、今は一覧を別シートに定義しています。

何かアドバイスをいただけたらと思います。

Answer 1

If文とSelect Case文で判別するコードを下記で紹介しています。

電話番号の適切な位置に区切り文字を挿入する関数＋市外局番データアップデイトツール(高速版) - hatena chips

Answer 2

こちらも別シートを使っていますが参考になると思います。
エクセルでどんな電話番号でもハイフンを入れる方法｜全国の市外局番・市内局番の-区切り変換に対応