Insert tags around selected text

[guitardave78]

Hey all

How can I put some tags around text selected in a text box?
I thought

Dim strSelText As String
strSelText = Me.txtNews.SelectedText.ToString
If (strSelText.Length) > 0 Then
   Me.txtNews.Text = Replace(Me.txtNews.Text.ToString, strSelText, "[b]" & strSelText & "[/b]", Me.txtNews.SelectionStart, 1)
End If

may do it but no luck!!

}...the bane of my life!

http://www.yetanotherreviewsite.co.uk

http://www.fuzzyd.co.uk

 

[cjelec]

Try using:

If Me.txtNews.SelectionLength > 0 Then
   Dim txt As String = Me.txtNews.SelectedText

   Me.txtNews.SelectedText = "..." & txt & "..."
End If