Nedd Auto Welcome and Badword Detect Project

Dear Admin please how to make auto welcome and bad word detect with auto warning text for 4 time and the 5 times will be kicked

i find the project but stil have a problem

Private Sub Timer2_Timer()
For i = 0 To List1.ListCount - 1
If Texta.Text = List1.List(i) Then
If asd5.Value = True Then
Else
If asd1.Value = True Then
kirim mig33Controls.SendToRoom(tuname, room, Text1.Text + " " + action.Text)
List2.AddItem (Text1.Text)
Texta.Text = ""
Text3.Text = ""
Text1.Text = ""
Else
If asd2.Value = True Then
kirim mig33Controls.SendToRoom(tuname, room, "/kick " + Text1.Text)
Texta.Text = ""
Text3.Text = ""
Text1.Text = ""
Else
If asd4.Value = True Then
kirim mig33Controls.SendToRoom(tuname, room, "/ban " + Text1.Text + " 1")
Texta.Text = ""
Text3.Text = ""
Text1.Text = ""
Else
If asd3.Value = True Then
kirim mig33Controls.SendToRoom(tuname, room, "/bump " + Text1.Text)
Texta.Text = ""
Text3.Text = ""
Text1.Text = ""
Else
If asd6.Value = True Then
kirim mig33Controls.SendToRoom(tuname, room, "/mute " + Text1.Text)
Texta.Text = ""
Text3.Text = ""
Text1.Text = ""
End If
End If
End If
End If
End If
End If
End If
Next i
Texta.Text = ""
Text3.Text = ""
Text1.Text = ""
End Sub

thanks