VB６．０にて簡単な住所録を作成してます。

引数（yubinno.value)にnull〜7桁の文字列が入ってます。
これをエクセルで表示させたいのですが。
７桁入っている場合のみ
０００−００００と表示したいと思います。

どのようにすればいいのか解らないのでお力をお借りできませんでしょうか？

mid関数とかつかえばよろしいのでしょうか？

> 引数（yubinno.value)にnull〜7桁の文字列が入ってます。
> これをエクセルで表示させたいのですが。
> ７桁入っている場合のみ

yubinno.value の文字列の長さを取得して下さい。

詳しくは、ここの　文字列処理関係 の 文字列の長さを得る を参照下さい

それとも分割と書いてあるところを見ると 4桁目に − を入れたいと言う事
でしょうか？　それなら下記では
Private Sub Command1_Click()
    Dim yubinno As String
    yubinno = "1234567"
    If Len(yubinno) = 7 Then
　　　　Debug.Print Format$(yubinno, "@@@-@@@@")
       ' Debug.Print Format$(yubinno, "000-0000")
    End If
End Sub

> 詳しくは、ここの　文字列処理関係 の 文字列の長さを得る を参照下さい
> それとも分割と書いてあるところを見ると 4桁目に − を入れたいと言う事
> でしょうか？　それなら下記では
> Private Sub Command1_Click()
>     Dim yubinno As String
>     yubinno = "1234567"
>     If Len(yubinno) = 7 Then
> 　　　　Debug.Print Format$(yubinno, "@@@-@@@@")
>        ' Debug.Print Format$(yubinno, "000-0000")
>     End If
> End Sub

ありがとうございます。その通りでした。
あと７桁以外の時にそのまま表示をつければいいですよね。
els eLen(yubinno) != 7 Then

こんな感じを追加でよろしいですか？

ほんとうにありがとうございます

> els eLen(yubinno) != 7 Then
↑
すいませんここ間違えコピペしちゃいました
忘れてください