Function(s) for blog

Following simple function removes new line char from text (useful for creating table etc on blog)

Private Sub Command1_Click()
Text2.Text = Replace(Text1.Text, vbNewLine, "")
End Sub

Following simple function replaces '<' and '>' with '<' and '&gt' (useful while publishing HTML contents on blog)

Private Sub Command1_Click()
Text2.Text = Replace(Text1.Text, "<", "<")
Text2.Text = Replace(Text2.Text, ">", ">")
End Sub