Сервер на сокетах: Нельзя повторно отправить данные на сервер

                Dim varByte(10024) As Byte
                Dim varString As String
                strNetwork = tcpClient.GetStream
                varString = "login[main]" & vbCrLf & "UserName=" & varNameUser
                varByte = Encoding.UTF8.GetBytes(varString)
                strNetwork.Write(varByte, 0, varByte.Length)
                strNetwork.Flush()
 
                Dim varReadByte(10024) As Byte
                Dim varReadString As String
                strNetwork = tcpClient.GetStream
                strNetwork.Read(varReadByte, 0, CInt(tcpClient.ReceiveBufferSize))
                strNetwork.Flush()
                varReadString = Encoding.UTF8.GetString(varReadByte)
                MsgBox(varReadString)

Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.IO
Module Module1
    Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
    Public Declare Function WriteINI Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal Section As String, ByVal Key As String, ByVal putStr As String, ByVal INIfile As String) As Integer
    Public Function ReadINI(ByVal sSection As String, ByVal sKey As String, ByVal sIniFileName As String)
        Dim nLength As Integer
        Dim sTemp As String
        Dim lsTemp As Integer
        sTemp = Space(255)
        lsTemp = Len(sTemp)
        nLength = GetPrivateProfileString(sSection, sKey, "", sTemp, lsTemp, sIniFileName)
        Return Left(sTemp, nLength)
    End Function
 
    Dim ServerListner As New TcpListener(4000)
    Dim ServerSocket As TcpClient
    Dim readByte(10024) As Byte
    Dim writeByte(10024) As Byte
    Dim readString As String
    Dim writeString As String
    Dim ServerStream As NetworkStream
    Sub Main()
        Console.WriteLine(ReadINI("General", "HelloText", "Bin\text.ini") & " " & Now.Date & " " & Now.Hour & ":" & Now.Minute)
        ServerListner.Start()
 
 
        For i As Integer = 1 To 2
            i = 1
            ServerSocket = ServerListner.AcceptTcpClient
            ServerStream = ServerSocket.GetStream
            ServerStream.Read(readByte, 0, CInt(ServerSocket.ReceiveBufferSize))
            readString = Encoding.UTF8.GetString(readByte)
            ServerStream.Flush()
 
            If Mid(readString, 1, 5) = "login" Then Login(Mid(readString, 6).Trim)
 
        Next
 
    End Sub
 
    Sub Login(ByVal Content As String)
        Dim i As Integer = 0
        Dim FileNo As Integer
        Do
            i += 1
            FileNo = i
            If File.Exists("Server\login\" & i & ".ini") = False Then i = 1000
        Loop Until i = 1000
 
        Dim NewFileStream As StreamWriter = New StreamWriter("Server\login\" & FileNo & ".ini")
        NewFileStream.Write(Content)
        NewFileStream.Close()
 
        Console.WriteLine(ReadINI("main", "UserName", "Server\login\" & FileNo & ".ini") + " пытается зарегестрироваться.")
 
        writeString = ReadINI("main", "UserName", "Server\login\" & FileNo & ".ini") + "login" + "[main]" + vbCrLf + "res=True"
        writeByte = Encoding.UTF8.GetBytes(writeString)
        ServerStream = ServerSocket.GetStream
        ServerStream.Write(writeByte, 0, writeByte.Length)
        ServerStream.Flush()
 
        File.Delete("Server\login\" & FileNo & ".ini")
    End Sub
 
End Module

Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.IO
 
Module Program
    Dim ServerListner As New TcpListener(Ipaddress.Any,4000)
    Dim readString As String
    Dim ServerStream As NetworkStream
    Dim  ServerSocket as TcpClient
    Dim  readByte() As Byte  = New [Byte]() {}
    
    Sub Main()  
 ServerListner.Start()
While True
           readByte  = New [Byte](128) {}
            ServerSocket = ServerListner.AcceptTcpClient
            ServerStream = ServerSocket.GetStream()
            ServerStream.Read(readByte, 0, ServerSocket.Available )
            readString = Encoding.Default.GetString(readByte)
            ServerStream.Flush()
            console.WriteLine(readString)
 
 End While
 end sub
End Module

Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.IO
 
Module Program
 
    Sub Main()
        Do
Console.WriteLine("Введите строку для отправки")
Dim varString As String = console.ReadLine()
dim tck as TcpClient = new TcpClient
tck.Connect("127.0.0.1",4000)
dim strNetwork as NetworkStream = tck.GetStream
dim varByte() As Byte = New [Byte]() {}
varByte = Encoding.Default.GetBytes(varString)
strNetwork.Write(varByte, 0, varByte.Length)
strNetwork.Flush()
loop
    End Sub
End Module

content = content.Replace("$", vbCrLf)

Console.WriteLine(ReadINI("General", "HelloText", "Bin\text.ini") & " " & Now.Date & " " & Now.Hour & ":" & Now.Minute)
        SocketListner.Start()
        'Получение запроса.
        For i As Integer = 1 To 2
            Try
                SocketServer = SocketListner.AcceptTcpClient
                Dim varReadByte(10024) As Byte
                Dim varReadString As String
                strNetwork = SocketServer.GetStream
                strNetwork.Read(varReadByte, 0, SocketServer.ReceiveBufferSize)
                strNetwork.Flush()
                varReadString = Encoding.UTF8.GetString(varReadByte)
                'Отправка текста на определение дальнейшего действия.
                DetectSend(varReadString)
            Catch ex As Exception
            End Try
            i = 1
        Next

Console.WriteLine(ReadINI("General", "HelloText", "Bin\text.ini") & " " & Now.Date & " " & Now.Hour & ":" & Now.Minute)
        SocketListner.Start()
        'Получение запроса.
        For i As Integer = 1 To 2
            Try
                Dim varReadByte(10024) As Byte
                Dim varReadString As String
                strNetwork = SocketServer.GetStream
                strNetwork.Read(varReadByte, 0, SocketServer.ReceiveBufferSize)
                strNetwork.Flush()
                varReadString = Encoding.UTF8.GetString(varReadByte)
                'Отправка текста на определение дальнейшего действия.
                DetectSend(varReadString)
            Catch ex As Exception
                SocketServer = SocketListner.AcceptTcpClient
            End Try
            i = 1
        Next