Rettelse

If Not lstUsers.ListIndex + 1 = 0 Then
    Dim UserKick As Integer
    UserKick = lstUsers.ListIndex + 1
    'MsgBox lstUsers.ListIndex + 1
    If Not lstUsers.Text = "<Waiting>" Then
    If Wsk(UserKick).State = 7 Then
    For a = 1 To 1
        Wsk(UserKick).SendData "You Have been kicked"
    Next a
End If
   
    List1.AddItem Wsk(UserKick).RemoteHostIP
    Wsk(UserKick).Close
    lstUsers.List(UserKick - 1) = "<Waiting>"
    Else
    MsgBox "the line is open", vbDefaultButton1, "Error"
    End If
End If

Jeg har denne her KickUser kode, men jeg synes den er underlig og ikke virker som den skal.  Hvad kunne man forbedre uden at det bliver totalt komplizeret?