Private Sub Admin_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim data As String
    Admin(Index).GetData data, vbString
    If session = 1 Then
        If data = "login" Then
            Admin(Index).SendData "1112a"
            session = 2
        End If
    End If
    If session = 2 Then
        AdminForm.User = data
        Admin(Index).SendData "1113a"
        session = 3
    End If
    If session = 3 Then
        AdminForm.Password = data
        CheckUserInfo AdminForm.User, AdminForm.Password, Admin(Index)
        session = 1
    End If
End Sub