VB代码，这种效果能实现，实现的话要用哪些控件？

Private Sub Command1_Click()
    Dim s As String
    Dim t As String
    s = Text1.Text
    Dim l As Long
    Dim IGF As Boolean
    Dim igs As String
    igs = "<>/@" & vbCrLf
    For l = 1 To Len(s)
        If Mid(s, l, 1) = "[" Or Mid(s, l, 2) = "/@" Then
            IGF = True
        End If
        If IGF = False Then
            If InStr(igs, Mid(s, l, 1)) = 0 Then
                t = t & Mid(s, l, 1)
            End If
        End If
        If Mid(s, l, 1) = "]" Or Mid(s, l, 1) = ">" Then
            IGF = False
        End If
    Next l
    Form2.Show
    Form2.Print t
    
End Sub 
上面的代码不支持换行显示。对个别符号或文字设置颜色不会，
具体还是看效果图。这次认真整理下，再次求助VB高手。谢谢了
这次带上效果图片：
效果1:
效果2:
=====================
[@干什么]
你和他和我干什么
╔══════╦════╗
║ <我在干什么/@1> ║ <你我他/@2> ║
╠══════╬════╣
║ <你在干什么/@3> ║ <我他你/@4> ║
╚══════╩════╝
╔══════╗
║<你我他干什么>║
╚══════╝
[@1]
你找我吗
╔══════╗
║ <找我干什么/@*> ║
╚══════╝
增加活动属性。
不论什么内容在<**/@**>里面,只要这个/@正确,(如只有/或@,点击都没有反应),就可以点击进入下一个.
例:点击<我在干什么/@1>
进入[@1]这个页面.就是有个循环,如有**/@*进入设置了的[@*]就可以进入下一页.