Option Explicit
Dim CMode As String
Dim sData As String
Dim sChannel As String
Dim HostGroup As String
Dim OwnerGroup As String
Dim GuideGroup As String
Dim sRoomList As String
Dim lFoundPosition As Long
Dim Color As Boolean
Dim sList As ListItem
Dim i As Integer
Private Sub Form_Load()
ReDim Emo(16)
ReDim Icon(16)
Emo(1) = "(H) (h)"
Icon(1) = frmEmo.sunglass.Text
Emo(2) = ":P :p :-P :-p"
Icon(2) = frmEmo.Tongue.Text
Emo(3) = ":O :o :-o :-O"
Icon(3) = frmEmo.Oh.Text
Emo(4) = "(Y) (y)"
Icon(4) = frmEmo.thumbsup.Text
Emo(5) = ":) :-)"
Icon(5) = frmEmo.Smile.Text
Emo(6) = ":D :-D :d :-d :>"
Icon(6) = frmEmo.BSmile.Text
Emo(7) = ":( :-("
Icon(7) = frmEmo.Sad.Text
Emo(8) = ":| :-|"
Icon(8) = frmEmo.shut.Text
Emo(9) = ":'("
Icon(9) = frmEmo.cry.Text
Emo(10) = "(F) (f)"
Icon(10) = frmEmo.flower.Text
Emo(11) = ":s :S :-S :-s"
Icon(11) = frmEmo.SS.Text
Emo(12) = ";) ;-)"
Icon(12) = frmEmo.knipoog.Text
Emo(13) = ":@"
Icon(13) = frmEmo.angry.Text
Emo(14) = "(K) (k)"
Icon(14) = frmEmo.kiss.Text
Emo(15) = ":$ :-$"
Icon(15) = frmEmo.blush.Text
Emo(16) = "(A) (a)"
Icon(16) = frmEmo.angel.Text
end sub
Private Sub SetEmo()
Dim j As Integer
Dim CharCombo() As String
Dim lFoundPosition2 As Long
On Error Resume Next
For i = 0 To 30
CharCombo = Split(Emo(i), " ")
For j = 0 To UBound(CharCombo)
lFoundPosition2 = InStr(lFoundPosition, txtMain.Text, CharCombo(j))
While lFoundPosition2 > 0
txtMain.SelStart = lFoundPosition2 - 1
txtMain.SelLength = Len(CharCombo(j))
txtMain.SelRTF = Icon(i)
lFoundPosition2 = InStr(lFoundPosition2, txtMain.Text, CharCombo(j))
Wend
Next j
Next i
lFoundPosition = Len(txtMain.Text) - 1
End Sub
into the textbox and press the button
" without quotes through it
