Try
            '*
            '* PARTE DIAGNOSI
            '*
            If Me.cbLog.CheckState = CheckState.Checked Then
                'se sono abilitati i log salvo il log del diagnosi
                Me.SaveFileDialog1.Title = "Salva il file di log dello strumento Diagnosi..."

                Me.SaveFileDialog1.ShowDialog()

                If SaveFileDialog1.FileName <> "" Then
                    'se il nome del file da salvare non e' vuoto

                    If Not System.IO.File.Exists(SaveFileDialog1.FileName) Then
                        'verifico se il file esiste

                        Me.tx_RicezioneD.ReadOnly = False
                        'ci creo uno stream per la scrittura in modalità Nuovo file
                        Dim file_nuovoD As New System.IO.StreamWriter(SaveFileDialog1.FileName)
                        file_nuovoD.WriteLine()
                        file_nuovoD.Write("Ora Diagnosi Strumento: " & System.DateTime.Now & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Risposta Dispositivo: ")
                        file_nuovoD.WriteLine()
                        file_nuovoD.Write(Me.tx_RicezioneD.Text)
                        file_nuovoD.WriteLine()
                        file_nuovoD.Write("===============================================================")
                        file_nuovoD.WriteLine()
                        file_nuovoD.Close()

                    Else

                        'ci creo uno stream per la scrittura in modalità Modifica / Aggiungi

                        Dim file_esistenteD As StreamWriter
                        file_esistenteD = File.AppendText(SaveFileDialog1.FileName)
                        file_esistenteD.WriteLine()
                        file_esistenteD.Write("Ora Diagnosi: " & System.DateTime.Now & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Risposta Dispositivo: ")
                        file_esistenteD.WriteLine()
                        file_esistenteD.Write(Me.tx_RicezioneD.Text)
                        file_esistenteD.WriteLine()
                        file_esistenteD.Write("===============================================================")
                        file_esistenteD.WriteLine()
                        file_esistenteD.Close()

                    End If

                End If