Case "test"
If coding.SelLength > 0 Then
coding.SelText = "<html>"
coding.SelText = "<head>"
coding.SelText = "<TITLE>" & coding.SelText & "</TITLE>"
Else
coding.SelText = "<html>"
coding.SelText = "<head>"
coding.SelText = "<TITLE>TITLE</TITLE>"
End If
End Select
'<head>
'<title></title>
'</head>
'<body bgcolor="#FFFFFF">
'</body>
'</html>
'Its coming out in a like like this
'<head><title></title></head><body bgcolor="#FFFFFF"></body></html>
'Its coming out like this
'<head><title></title></head><body bgcolor="#FFFFFF"></body></html>