Someone

Private Sub ReadNames(Users)
    On Error Resume Next
    Dim asUsers()    As String
    Dim strName      As String
    Dim rstName      As String
    Dim strMode      As String
    Dim i            As Integer
    Dim j            As Integer
    Dim R            As String
    Dim l            As String
    
    asUsers = Split(Users, " ")
    For i = 0 To UBound(asUsers)
'    MsgBox asUsers(i)
    Select Case (Left$(asUsers(i), 1))
        Case "."
            If (Left$(asUsers(i), 7) = ".Admin_") Then
                j = 1
                R = "admin"
                l = " (Host)"
            ElseIf (Left$(asUsers(i), 7) = ".Sysma_") Then
                j = 2
                R = "sysma"
                l = " (Host)"
            ElseIf (Left$(asUsers(i), 7) = ".Sysop_") Then
                j = 3
                R = "sysop"
                l = " (Host)"
            ElseIf (Left$(asUsers(i), 7) = ".Guide_") Then
                j = 4
                R = "guide"
                l = " (Host)"
            ElseIf (Right$(asUsers(i), 4) = "_Bot") Then
                j = 5
                R = "bot"
                l = " (Host)"
            Else
                j = 6
                R = "owner"
                l = " (Host)"
            End If
        Case "@"
            j = 7
            R = "host"
            l = " (Host)"
        Case "+"
            j = 8
            R = "voice"
            l = ""
        Case Else
            strMode = frmSettings.ChtRmnModes.Text
            j = 9
            If InStr(strMode, "m") Then
                R = "spec"
            Else
                R = "normal"
            End If
            l = ""
    End Select
'    MsgBox J & vbCrLf & R & vbCrLf & strName
'    MsgBox sMyNick & vbCrLf & asUsers(I)
    If (sMyNick <> asUsers(i)) Then
        strName = Replace$(asUsers(i), ".", "")
        strName = Replace$(strName, "@", "")
        strName = Replace$(strName, "+", "")
        rstName = Replace$(asUsers(i), ".", "")
        rstName = Replace$(rstName, "@", "")
        rstName = Replace$(rstName, "+", "")
        
        Set sList = lstUsers.ListItems.Add(, strName, j & "_" & rstName, , R)
        sList.ListSubItems.Add , , strName & l, R
    Else
        lstMe.ListItems(lstMe.ListItems.Count).SmallIcon = R
    End If
    Next
    
    lstUsers.Refresh
End Sub