mid関数を使用する mid(文字列,開始文字位置,何文字目以降に挿入するか)
Dim str as String str = "090********" Mid(str, 1, 3)& "-" & Mid(str,4,4)&"-"&Mid(str,8,4)