>>498 若干無理矢理だけどクラス使えば似たような事は出来る Type1.cls Private Zip_ As String * 7 Private telnum_ As String * 11 Public Property Let Default(N As String) Zip_ = Left(N, 7) telnum = Mid(N, 8) End Property Public Property Get Zip() Zip = Zip_ End Property Public Property Get telnum() telnum = telnum_ End Property デフォルトプロパティの設定がちょっとトリッキー、こことかを参考に https://thom.hateblo.jp/entry/2015/02/16/003000 あとは Dim a As New Type1 a = "151123408012341234" Debug.Print a.Zip Debug.Print a.telnum
