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