just testing my color coding prog

Code:
Dim  BlueStuff As String,  BSC As String 
Private Sub  cmdconvert_Click() 
BlueStuff = "Byte,Currency,Date,String,Object,Single,Double,Integer,Long,Boolean,Variant,While,Wend,With,Step,Do,Loop,If,Then,Else,New,Exit,True,False,Dim,Sub,Function,Property,Let,Get,As,Declare,End,For,To,Next,Public,Private,Global,ReDim,Const,Lib,Alias,Event,Property,Get,Let,On,Error,Resume,Goto,Type,CBool,CStr,CByte,CCur,CDate,CDbl,CDec,CInt,CLng,CSng,CVar,And" 
BSC = "[color=" & Chr(34) & "#00007F" & Chr(34) & "]" 
'Split all in  the text box into separate lines 
Dim  strList As Variant,  strList2 As Variant,  tagClosed As Boolean 
 tagClosed = True 
 strList = Split(txtVB, vbCrLf) 
txtVB = "

	
Code:

	
" 
For  Each varlist In  strList 
strList2 = Split(varlist, " ") 
For  Each othervar In  strList2 
    If  InStr(BlueStuff, othervar) <> 0 And  othervar <> " " And  othervar <> "i" Then 
        If  tagClosed Then 
             txtVB = txtVB & BSC & othervar & " " 
 tagClosed = False 
        Else 
             txtVB = txtVB & othervar & " " 
 tagClosed = False 
        End If 
    Else 
        If  tagClosed Then 
             txtVB = txtVB & othervar & " " 
 tagClosed = True 
        Else 
             txtVB = txtVB & "[/color] " & othervar & " " 
 tagClosed = True 
        End If 
    End If 
Next 
 txtVB = txtVB & vbCrLf 
Next 
If  tagClosed = False Then  txtVB = txtVB & "[/color]" 
txtVB = txtVB & vbCrLf & "


" 
End Sub
i told you not to peek