Private Sub SendOnlineList()
Dim lf_Cnt As Long, lf_Names As String
 
    For lf_Cnt = 1 To liv_main.ListItems.Count
        lf_Names = lf_Names & liv_main.ListItems.Item(lf_Cnt).Text & Chr(3)
    Next lf_Cnt
    If Right(lf_Names, 1) = Chr(3) Then lf_Names = Left(lf_Names, Len(lf_Names) _
      - 1)
 
    For lf_Cnt = 1 To liv_main.ListItems.Count
        SendData Chr(1) & "OList" & Chr(2) & lf_Names & Chr(0), _
        liv_main.ListItems.Item(lf_Cnt).ListSubItems.Item(1).Text
        'Delay 1
    Next lf_Cnt
 
End Sub
 
Private Sub SendData(ByVal vf_Data As String, ByVal vf_Index As Integer)
Dim lf_Crypt As New Class_Rijndael, lf_CString As String
On Error GoTo err_Handle
 
    SetToConsole "outgoing -> " & liv_main.ListItems.Item("CLIENT" & _
      vf_Index).Text & ":" & vf_Data
 
    lf_CString = lf_Crypt.ezisEncrypt(vf_Data, gc_WSKKEY)
 
    Wsk_main(vf_Index).SendData CStr(Len(lf_CString)) & " " & lf_CString
 
 
Exit Sub
err_Handle:
MyState vf_Index & " " & Err.Description
End Sub

Real programmer do not comment their code;
what?s hard to write should be hard to read