All pastes #274765 Raw Edit

Subscript problem

public text v1 · immutable
·published 2006-12-10 23:09 UTC
rendered paste body
    Dim spl() As String
    spl() = Split(message)
    If UCase(spl(0)) = "/BAN" Then
    Dim splt() As String
    Dim i As Integer
    With frmMain.cboUsers
        For i = 0 To .ListCount
            splt = Split(.List(i), " ", 2)
                If LCase(splt(0)) = LCase(spl(1)) Then
                    message = "Cannot ban users that are safelisted!"
            End If
                Next i
        End With
            End If