Point = InStr(1, データ, "記号")                        '検索記号、その１
    NextPoint = InStr(1, データ, "記号")                   '検索記号、その２
    
    If InStr(1, データ,"記号") <> 0 Or _
        InStr(1, データ), "記号") <> 0 Then                   '検索記号があるかどうか判断
        Call PrintText(9, Y + 1.1, Mid(データ), 1, Point - 1))       'データの読み取り
        If (Point + 1) > NextPoint Then
            Call PrintText(9, Y + 1.6, Mid(データ), Point + 1, (Point + 1) - NextPoint))
        Else
            Call PrintText(9, Y + 1.6, Mid(データ), Point + 1, NextPoint - (Point + 1)))
            Call PrintText(9, Y + 2.1, Mid(データ), NextPoint + 2, 80))
        End If
    Else
        If Len(データ) < 80 Then                        '検索記号がない時の判断
            Call PrintText(9, Y + 1.1, データ)                 'データの読み取り1行目の18
        ElseIf Len(データ)> 80 Then
            Call PrintText(9, Y + 1.1, Mid(データ), 1, 80))
            Call PrintText(9, Y + 1.6, Mid(データ), 81, 80))
            Call PrintText(9, Y + 2.1, Mid(データ), 162, 80))
        End If
    End If
VB6で以上のプログラムを作りましたが、記号があるかどうかを検索して、
記号があったら改行して表示します、でも、同じ記号が二つがあるとしたら、
改行せずに1行で表示したいのですが、どうしたらよろしですか？教えてください、
お願いします。

(Len(データ) - Len(Replace(データ, "記号", ""))) / Len("記号")

↑これでデータ内に記号が幾つあるか分かります。

うまく行きましたので報告します、教えていただいてありがとうがざいます