Cmd ScrewIn Up

[UnkNowN....Man.]

Ok Peoples can you please tell me why like 3 of my 8 cmds are working? they are like all the same except wit different shit for there cmds. like htis "des" one works

Code Select Expand


Access = RetrieveAccess("Access", UserName)
If Access = "M" Or Access = "O" Then
       If Left(LCase(Message), 5) = (strTrigger & "des ") Then
       Dim strDes As String
       strDes = Right(Message, (Len(Message) - 5))
       CleanSlateBot1.Send "/designate " & strDes
       End If
       End If

Now the one above it witch is "kick" wont work

Code Select Expand


Access = RetrieveAccess("Access", UserName)
If Access = "M" Or Access = "O" Then
       If Left(LCase(Message), 5) = (strTrigger & "kick ") Then
       Dim strKick As String
       strKick = Right(Message, (Len(Message) - 5))
       CleanSlateBot1.Send "/kick " & strKick
       End If
       End If

and its like that with lots of em to... so can someone tell me what the >< is wrong with this?. if you can thx  

[DarkMinion]

Code Select Expand


If Left(LCase(Message), 5) = (strTrigger & "kick ") Then

strKick = Right(Message, (Len(Message) - 5))


The 5's in those lines should be 6's.

[Yoni]

That, and instead of Right(Message, Len(Message) - 6) you can just do Mid(Message, 7).