Sub btnTestText_Click
Try
lblScroll.Text = txtBBCode.Text
Catch
Dim error As String = TextEngine.TagParser.ErrorString
Dim title As String = error.SubString2(0, error.IndexOf(":"))
Dim msg As String = error.SubString(error.IndexOf(":") + 2)
Main.msgBox.Show(msg, title)
End Try
End Sub