Sub AddText(textmsg As String)
rep2 = Replace(textmsg, "1,2", "")
rep3 = Replace(rep2, "1,3", "")
rep4 = Replace(rep3, "1,4", "")
rep5 = Replace(rep4, "1,5", "")
rep6 = Replace(rep5, "1,6", "")
rep7 = Replace(rep6, "1,7", "")
rep8 = Replace(rep7, "1,8", "")
rep9 = Replace(rep8, "1,9", "")
rep10 = Replace(rep9, "1,10", "")
rep11 = Replace(rep10, "1,11", "")
rep12 = Replace(rep11, "1,12", "")
rep13 = Replace(rep12, "1,13", "")
rep14 = Replace(rep13, "1,14", "")
rep15 = Replace(rep14, "1,15", "")
rep17 = Replace(rep15, "2,2", "")
rep18 = Replace(rep17, "2,3", "")
rep19 = Replace(rep18, "2,4", "")
rep20 = Replace(rep19, "2,5", "")
rep21 = Replace(rep20, "2,6", "")
rep22 = Replace(rep21, "2,7", "")
rep23 = Replace(rep22, "2,8", "")
rep24 = Replace(rep23, "2,9", "")
rep25 = Replace(rep24, "2,10", "")
rep26 = Replace(rep25, "2,11", "")
rep27 = Replace(rep26, "2,12", "")
rep28 = Replace(rep27, "2,13", "")
rep29 = Replace(rep28, "2,14", "")
rep30 = Replace(rep29, "2,15", "")
rep32 = Replace(rep30, "3,2", "")
rep33 = Replace(rep32, "3,3", "")
rep34 = Replace(rep33, "3,4", "")
rep35 = Replace(rep34, "3,5", "")
rep36 = Replace(rep35, "3,6", "")
rep37 = Replace(rep36, "3,7", "")
rep38 = Replace(rep37, "3,8", "")
rep39 = Replace(rep38, "3,9", "")
rep40 = Replace(rep39, "3,10", "")
rep41 = Replace(rep40, "3,11", "")
rep42 = Replace(rep41, "3,12", "")
rep43 = Replace(rep42, "3,13", "")
rep44 = Replace(rep43, "3,14", "")
rep45 = Replace(rep44, "3,15", "")
rep47 = Replace(rep45, "4,2", "")
rep48 = Replace(rep47, "4,3", "")
rep49 = Replace(rep48, "4,4", "")
rep50 = Replace(rep49, "4,5", "")
rep51 = Replace(rep50, "4,6", "")
rep52 = Replace(rep51, "4,7", "")
rep53 = Replace(rep52, "4,8", "")
rep54 = Replace(rep53, "4,9", "")
rep55 = Replace(rep54, "4,10", "")
rep56 = Replace(rep55, "4,11", "")
rep57 = Replace(rep56, "4,12", "")
rep58 = Replace(rep57, "4,13", "")
rep59 = Replace(rep58, "4,14", "")
rep60 = Replace(rep59, "4,15", "")
rep62 = Replace(rep60, "5,2", "")
rep63 = Replace(rep62, "5,3", "")
rep64 = Replace(rep63, "5,4", "")
rep65 = Replace(rep64, "5,5", "")
rep66 = Replace(rep65, "5,6", "")
rep67 = Replace(rep66, "5,7", "")
rep68 = Replace(rep67, "5,8", "")
rep69 = Replace(rep68, "5,9", "")
rep70 = Replace(rep69, "5,10", "")
rep71 = Replace(rep70, "5,11", "")
rep72 = Replace(rep71, "5,12", "")
rep73 = Replace(rep72, "5,13", "")
rep74 = Replace(rep73, "5,14", "")
rep75 = Replace(rep74, "5,15", "")
rep77 = Replace(rep75, "6,2", "")
rep78 = Replace(rep77, "6,3", "")
rep79 = Replace(rep78, "6,4", "")
rep80 = Replace(rep79, "6,5", "")
rep81 = Replace(rep80, "6,6", "")
rep82 = Replace(rep81, "6,7", "")
rep83 = Replace(rep82, "6,8", "")
rep84 = Replace(rep83, "6,9", "")
rep85 = Replace(rep84, "6,10", "")
rep86 = Replace(rep85, "6,11", "")
rep87 = Replace(rep86, "6,12", "")
rep88 = Replace(rep87, "6,13", "")
rep89 = Replace(rep88, "6,14", "")
rep90 = Replace(rep89, "6,15", "")
rep92 = Replace(rep90, "7,2", "")
rep93 = Replace(rep92, "7,3", "")
rep94 = Replace(rep93, "7,4", "")
rep95 = Replace(rep94, "7,5", "")
rep96 = Replace(rep95, "7,6", "")
rep97 = Replace(rep96, "7,7", "")
rep98 = Replace(rep97, "7,8", "")
rep99 = Replace(rep98, "7,9", "")
rep100 = Replace(rep99, "7,10", "")
rep101 = Replace(rep100, "7,11", "")
rep102 = Replace(rep101, "7,12", "")
rep103 = Replace(rep102, "7,13", "")
rep104 = Replace(rep103, "7,14", "")
rep105 = Replace(rep104, "7,15", "")
rep107 = Replace(rep105, "8,2", "")
rep108 = Replace(rep107, "8,3", "")
rep109 = Replace(rep108, "8,4", "")
rep110 = Replace(rep109, "8,5", "")
rep111 = Replace(rep110, "8,6", "")
rep112 = Replace(rep111, "8,7", "")
rep113 = Replace(rep112, "8,8", "")
rep114 = Replace(rep113, "8,9", "")
rep115 = Replace(rep114, "8,10", "")
rep116 = Replace(rep115, "8,11", "")
rep117 = Replace(rep116, "8,12", "")
rep118 = Replace(rep117, "8,13", "")
rep119 = Replace(rep118, "8,14", "")
rep120 = Replace(rep119, "8,15", "")
rep122 = Replace(rep120, "9,2", "")
rep123 = Replace(rep122, "9,3", "")
rep124 = Replace(rep123, "9,4", "")
rep125 = Replace(rep124, "9,5", "")
rep126 = Replace(rep125, "9,6", "")
rep127 = Replace(rep126, "9,7", "")
rep128 = Replace(rep127, "9,8", "")
rep129 = Replace(rep128, "9,9", "")
rep130 = Replace(rep129, "9,10", "")
rep131 = Replace(rep130, "9,11", "")
rep132 = Replace(rep131, "9,12", "")
rep133 = Replace(rep132, "9,13", "")
rep134 = Replace(rep133, "9,14", "")
rep135 = Replace(rep134, "9,15", "")
rep137 = Replace(rep135, "10,2", "")
rep138 = Replace(rep137, "10,3", "")
rep139 = Replace(rep138, "10,4", "")
rep140 = Replace(rep139, "10,5", "")
rep141 = Replace(rep140, "10,6", "")
rep142 = Replace(rep141, "10,7", "")
rep143 = Replace(rep142, "10,8", "")
rep144 = Replace(rep143, "10,9", "")
rep145 = Replace(rep144, "10,10", "")
rep146 = Replace(rep145, "10,11", "")
rep147 = Replace(rep146, "10,12", "")
rep148 = Replace(rep147, "10,13", "")
rep149 = Replace(rep148, "10,14", "")
rep150 = Replace(rep149, "10,15", "")
rep152 = Replace(rep150, "11,2", "")
rep153 = Replace(rep152, "11,3", "")
rep154 = Replace(rep153, "11,4", "")
rep155 = Replace(rep154, "11,5", "")
rep156 = Replace(rep155, "11,6", "")
rep157 = Replace(rep156, "11,7", "")
rep158 = Replace(rep157, "11,8", "")
rep159 = Replace(rep158, "11,9", "")
rep160 = Replace(rep159, "11,10", "")
rep161 = Replace(rep160, "11,11", "")
rep162 = Replace(rep161, "11,12", "")
rep163 = Replace(rep162, "11,13", "")
rep164 = Replace(rep163, "11,14", "")
rep165 = Replace(rep164, "11,15", "")
rep167 = Replace(rep165, "12,2", "")
rep168 = Replace(rep167, "12,3", "")
rep169 = Replace(rep168, "12,4", "")
rep170 = Replace(rep169, "12,5", "")
rep171 = Replace(rep170, "12,6", "")
rep172 = Replace(rep171, "12,7", "")
rep173 = Replace(rep172, "12,8", "")
rep174 = Replace(rep173, "12,9", "")
rep175 = Replace(rep174, "12,10", "")
rep176 = Replace(rep175, "12,11", "")
rep177 = Replace(rep176, "12,12", "")
rep178 = Replace(rep177, "12,13", "")
rep179 = Replace(rep178, "12,14", "")
rep180 = Replace(rep179, "12,15", "")
rep182 = Replace(rep180, "0,2", "")
rep183 = Replace(rep182, "0,3", "")
rep184 = Replace(rep183, "0,4", "")
rep185 = Replace(rep184, "0,5", "")
rep186 = Replace(rep185, "0,6", "")
rep187 = Replace(rep186, "0,7", "")
rep188 = Replace(rep187, "0,8", "")
rep189 = Replace(rep188, "0,9", "")
rep190 = Replace(rep189, "0,10", "")
rep191 = Replace(rep190, "0,11", "")
rep192 = Replace(rep191, "0,12", "")
rep193 = Replace(rep192, "0,13", "")
rep194 = Replace(rep193, "0,14", "")
rep195 = Replace(rep194, "0,15", "")
rep196 = Replace(rep195, "1,0", "")
rep197 = Replace(rep196, "2,0", "")
rep198 = Replace(rep197, "3,0", "")
rep199 = Replace(rep198, "4,0", "")
rep200 = Replace(rep199, "5,0", "")
rep201 = Replace(rep200, "6,0", "")
rep202 = Replace(rep201, "7,0", "")
rep203 = Replace(rep202, "8,0", "")
rep204 = Replace(rep203, "9,0", "")
rep205 = Replace(rep204, "10,0", "")
rep206 = Replace(rep205, "11,0", "")
rep207 = Replace(rep206, "12,0", "")
rep208 = Replace(rep207, "13,0", "")
rep209 = Replace(rep208, "14,0", "")
rep210 = Replace(rep209, "15,0", "")
rep212 = Replace(rep210, "13,2", "")
rep213 = Replace(rep212, "13,3", "")
rep214 = Replace(rep213, "13,4", "")
rep215 = Replace(rep214, "13,5", "")
rep216 = Replace(rep215, "13,6", "")
rep217 = Replace(rep216, "13,7", "")
rep218 = Replace(rep217, "13,8", "")
rep219 = Replace(rep218, "13,9", "")
rep220 = Replace(rep219, "13,10", "")
rep221 = Replace(rep220, "13,11", "")
rep222 = Replace(rep221, "13,12", "")
rep223 = Replace(rep222, "13,13", "")
rep224 = Replace(rep223, "13,14", "")
rep225 = Replace(rep224, "13,15", "")
rep227 = Replace(rep225, "14,2", "")
rep228 = Replace(rep227, "14,3", "")
rep229 = Replace(rep228, "14,4", "")
rep230 = Replace(rep229, "14,5", "")
rep231 = Replace(rep230, "14,6", "")
rep232 = Replace(rep231, "14,7", "")
rep233 = Replace(rep232, "14,8", "")
rep234 = Replace(rep233, "14,9", "")
rep235 = Replace(rep234, "14,10", "")
rep236 = Replace(rep235, "14,11", "")
rep237 = Replace(rep236, "14,12", "")
rep238 = Replace(rep237, "14,13", "")
rep239 = Replace(rep238, "14,14", "")
rep240 = Replace(rep239, "14,15", "")
rep242 = Replace(rep240, "15,2", "")
rep243 = Replace(rep242, "15,3", "")
rep244 = Replace(rep243, "15,4", "")
rep245 = Replace(rep244, "15,5", "")
rep246 = Replace(rep245, "15,6", "")
rep247 = Replace(rep246, "15,7", "")
rep248 = Replace(rep247, "15,8", "")
rep249 = Replace(rep248, "15,9", "")
rep250 = Replace(rep249, "15,10", "")
rep251 = Replace(rep250, "15,11", "")
rep252 = Replace(rep251, "15,12", "")
rep253 = Replace(rep252, "15,13", "")
rep254 = Replace(rep253, "15,14", "")
rep255 = Replace(rep254, "15,15", "")
rep256 = Replace(rep255, "0,0", "")
rep276 = Replace(rep256, "1,1", "")
rep277 = Replace(rep276, "2,1", "")
rep278 = Replace(rep277, "3,1", "")
rep279 = Replace(rep278, "4,1", "")
rep280 = Replace(rep279, "5,1", "")
rep281 = Replace(rep280, "6,1", "")
rep282 = Replace(rep281, "7,1", "")
rep283 = Replace(rep282, "8,1", "")
rep284 = Replace(rep283, "9,1", "")
rep285 = Replace(rep284, "10,1", "")
rep286 = Replace(rep285, "11,1", "")
rep287 = Replace(rep286, "12,1", "")
rep288 = Replace(rep287, "0,1", "")
rep289 = Replace(rep288, "13,1", "")
rep290 = Replace(rep289, "14,1", "")
rep291 = Replace(rep290, "15,1", "")
rep259 = Replace(rep291, "2", "")
rep260 = Replace(rep259, "3", "")
rep261 = Replace(rep260, "4", "")
rep262 = Replace(rep261, "5", "")
rep263 = Replace(rep262, "6", "")
rep264 = Replace(rep263, "7", "")
rep265 = Replace(rep264, "8", "")
rep266 = Replace(rep265, "9", "")
rep267 = Replace(rep266, "10", "")
rep268 = Replace(rep267, "11", "")
rep269 = Replace(rep268, "12", "")
rep270 = Replace(rep269, "13", "")
rep271 = Replace(rep270, "1", "")
rep272 = Replace(rep271, "
2", "")
rep273 = Replace(rep272, "13", "")
rep274 = Replace(rep273, "14", "")
rep275 = Replace(rep274, "15", "")
rep292 = Replace(rep275, "", "")
rep293 = Replace(rep292, "", "")
rep294 = Replace(rep293, "", "")
repfinal = Replace(rep294, "
", "")
Incoming.SelText = repfinal & vbCrLf '***** this is the bit that adds all of the strip'd text to window
'***** Incoming is the name of the Richtext box

'**************** this little bit here logs all the data from the channel into a logfile
'**************** if you do not wish to log the channel then remove under these comments
Dim LogData As String
OPEN_STATUS = True
FILE_NUMBER_LOG = FreeFile
FILE_NUMBER_LOG_1 = FreeFile
Dim i As Integer
i = FreeFile
On Error Resume Next
Open App.Path & "\log.xirc" For Input As #i
If Err Then
MsgBox ("The logfile cannot be found. a new one will be created for you")
Dim NEW_LOG As Integer
NEW_LOG = FreeFile
Open App.Path & "\log.xirc" For Output As #NEW_LOG
Close #NEW_LOG
Exit Sub
End If
OpenFile = Input(LOF(i), i)
Close #i
Open App.Path & "\log.xirc" For Output As #FILE_NUMBER_LOG
Print #FILE_NUMBER_LOG, OpenFile & Now & " " & Channel & " : " & repfinal '& vbCrLf
Close #FILE_NUMBER_LOG
End Sub