Mine

Private Sub ReadNames(Users)
Dim asUsers()    As String
Dim strName      As String
Dim I            As Integer

    asUsers = Split(Users, " ")
    For I = 0 To UBound(asUsers)
        On Error Resume Next
         Select Case (Left$(asUsers(I), 7))
            Case ".Admin_"
                strName = Replace$(asUsers(I), ".", "")
                If strName <> sMyNick Then
                    AdminGroup = AdminGroup & " " & strName & " "
                    Set sList = lstUsers.ListItems.Add(, strName, "01_" & asUsers(I), , "admin")
                    sList.ListSubItems.Add , , strName & " (Host)", "admin"
                End If
            Case ".Sysma_"
                strName = Replace$(asUsers(I), ".", "")
                If strName <> sMyNick Then
                    SysmaGroup = SysmaGroup & " " & strName & " "
                    Set sList = lstUsers.ListItems.Add(, strName, "02_" & asUsers(I), , "sysma")
                    sList.ListSubItems.Add , , strName & " (Host)", "sysma"
                End If
            Case ".Sysop_"
                strName = Replace$(asUsers(I), ".", "")
                If strName <> sMyNick Then
                    SysopGroup = SysopGroup & " " & strName & " "
                    Set sList = lstUsers.ListItems.Add(, strName, "03_" & asUsers(I), , "sysop")
                    sList.ListSubItems.Add , , strName & " (Host)", "sysop"
                End If
            Case ".Guide_"
                strName = Replace$(asUsers(I), ".", "")
                If strName <> sMyNick Then
                    GuideGroup = GuideGroup & " " & strName & " "
                    Set sList = lstUsers.ListItems.Add(, strName, "04_" & asUsers(I), , "guide")
                    sList.ListSubItems.Add , , strName & " (Host)", "guide"
                End If
            End Select
       Select Case (Right$(asUsers(I), 4))
            Case "_Bot"
                strName = Replace$(asUsers(I), ".", "")
                If strName <> sMyNick Then
                    ServeGroup = ServeGroup & " " & strName & " "
                    Set sList = lstUsers.ListItems.Add(, strName, "05_" & asUsers(I), , "bot")
                    sList.ListSubItems.Add , , strName & " (Host)", "bot"
                End If
            End Select
       Select Case (Left$(asUsers(I), 1))
            Case "."
                strName = Replace$(asUsers(I), ".", "")
                areowners.Text = areowners.Text & strName & " "
                If strName <> sMyNick Then
                    OwnerGroup = OwnerGroup & " " & strName & " "
                    Set sList = lstUsers.ListItems.Add(, strName, "06_" & asUsers(I), , "gold")
                    If Right$(strName, 2) = "TA" Then
                      strName = Left$(strName, Len(strName) - 7)
                    End If
                    If InStr(txtAwayNicknames, strName) Then
                      sList.ListSubItems.Add , , strName & " (Host)", "cup"
                    Else
                      sList.ListSubItems.Add , , strName & " (Host)", "gold"
                    End If
                Else
                    OwnerGroup = OwnerGroup & " " & strName & " "
                    lstMe.ListItems.Remove 1
                    Set sList = lstMe.ListItems.Add(, strName, strName, , "gold")
                End If
            Case "@"
                strName = Replace$(asUsers(I), "@", "")
                arehosts.Text = arehosts.Text & strName & " "
                If strName <> sMyNick Then
                    HostGroup = HostGroup & " " & strName & " "
                    Set sList = lstUsers.ListItems.Add(, strName, "07_" & asUsers(I), , "brown")
                    If Right$(strName, 2) = "TA" Then
                      strName = Left$(strName, Len(strName) - 7)
                    End If
                    If InStr(txtAwayNicknames, strName) Then
                      sList.ListSubItems.Add , , strName & " (Host)", "cup"
                    Else
                      sList.ListSubItems.Add , , strName & " (Host)", "brown"
                    End If
                Else
                    HostGroup = HostGroup & " " & strName & " "
                    lstMe.ListItems.Remove 1
                    Set sList = lstMe.ListItems.Add(, strName, strName, , "brown")
                End If
            Case "+"
                strName = Replace$(asUsers(I), "+", "")
                arevoice.Text = arevoice.Text & strName & " "
                If strName <> sMyNick Then
                    VoiceGroup = VoiceGroup & " " & strName & " "
                    Set sList = lstUsers.ListItems.Add(, strName, "08_" & asUsers(I), , txtGender.Text)
                    If Right$(strName, 2) = "TA" Then
                      strName = Left$(strName, Len(strName) - 7)
                    End If
                    If InStr(txtAwayNicknames, strName) Then
                      sList.ListSubItems.Add , , strName, "cup"
                    Else
                      sList.ListSubItems.Add , , strName, txtGender.Text
                    End If
                End If
            Case Else
                If asUsers(I) <> sMyNick And asUsers(I) <> "" Then
                    Set sList = lstUsers.ListItems.Add(, asUsers(I), asUsers(I), 1)
                    strName = asUsers(I)
                    If Right$(strName, 2) = "TA" Then
                      strName = Left$(strName, Len(strName) - 7)
                    End If
                    If moderated = "0" Then
                      If InStr(txtAwayNicknames, strName) Then
                        sList.ListSubItems.Add , , strName, "cup"
                      Else
                        sList.ListSubItems.Add , , strName, "blank"
                      End If
                    Else
                      sList.ListSubItems.Add , , strName, "spec"
                    End If
                End If
        End Select
    lUserCount.Caption = lstUsers.ListItems.Count + 1 & " " & txtLangmsg3 '" chatters in room."
    txtShowTempVar6.Text = lstUsers.ListItems.Count + 1
    Next
    If txtCatagory <> "XX" And txtLanguage <> "XX" Then
      If txtChatMode <> "1" Then
        If txtShowTempVar6.Text = "1" Then
          frmCreateRoom.txtGetRoomNm.Caption = txtRoom.Text
          frmCreateRoom.Show vbModal, Me
        End If
      End If
    End If
    If txtChatMode = "1" And txtShowTempVar6.Text = "1" Then
      If txtCatagory.Text = "XX" Or txtLanguage.Text = "XX" Then
      Else
        txtmain.SelColor = &H808000
        txtmain.SelText = vbCrLf & "The chat's topic is: "
        txtmain.SelColor = &H0&
        txtmain.SelText = txtSetTopic & vbCrLf
        txtmain.SelColor = &H8000&
        txtmain.SelText = vbCrLf & "Create Room: "
        txtmain.SelColor = &H0&
        txtmain.SelText = txtRoom
        txtmain.SelColor = &H8000&
        txtmain.SelText = vbCrLf & "Owner Key: "
        txtmain.SelColor = &H0&
        txtmain.SelText = txtSetOwnerKey
        txtmain.SelColor = &H8000&
        txtmain.SelText = vbCrLf & "Host Key: "
        txtmain.SelColor = &H0&
        txtmain.SelText = txtSetHostKey & vbCrLf & vbCrLf
        SendServ "MODE " & sChannel & " -q " & sMyNick
        txtmain.SelColor = &H808000
        txtmain.SelText = vbCrLf & "Write ' "
        txtmain.SelColor = &H0&
        txtmain.SelText = "/pass " & txtSetOwnerKey
        txtmain.SelColor = &H808000
        txtmain.SelText = " ' to be listed as an Channel Owner." & vbCrLf & vbCrLf
        ResetFontFormat
      End If
    End If
    
    lstMe.ListItems(1).Text = CheckNick(lstMe.ListItems(1).Text)
    lstUsers.Refresh

End Sub