Public Sub WriteLogs(ByVal val As String)

        Dim lg As StreamWriter
        Dim sline As String = "{0};{1};{2}"
    Dim logFname As String = My.Settings.sServerPath & "Logs\Log_" + Now.Date.ToString("yyyyMMdd") + ".txt"

        Try

'Verifico che il file di log esista o meno 
'se esiste vado in append se no lo creo
            If Not File.Exists(logFname) Then
                lg = New StreamWriter(logFname)
            Else
                lg = New StreamWriter(logFname, True)
            End If

            sline = String.Format(sline, Now, usrName, val)

            lg.WriteLine(sline)
            lg.Close()

            lg.Dispose()
            lg = Nothing

        Catch ex As Exception
            Throw ex
        End Try

    End Sub