Visual Basic

public static IPublicClientApplication PublicClientApp { get; private set; }

 static App()
 {
     PublicClientApp = PublicClientApplicationBuilder.Create(ClientId)
         .WithB2CAuthority(AuthoritySignUpSignIn)
         .WithLogging(Log, LogLevel.Verbose, false) //PiiEnabled set to false
         .Build();
 }
 private static void Log(LogLevel level, string message, bool containsPii)
 {
     string logs = ($"{level} {message}");
     StringBuilder sb = new StringBuilder();
     sb.Append(logs);
     File.AppendAllText(System.Reflection.Assembly.GetExecutingAssembly().Location + ".msalLogs.txt", sb.ToString());
     sb.Clear();
 }

Private Async Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load

      PublicClientApp = PublicClientApplicationBuilder.Create(ClientId).WithB2CAuthority(AuthoritySignUpSignIn).WithLogging(Log, LogLevel.Verbose, False).Build

  End Sub

Function Log(ByVal level As LogLevel, Message As String, ByVal containsPii As Boolean)
       Dim logs As String = ($"{level} {Message}")
       Dim sb As StringBuilder = New StringBuilder()
       sb.Append(logs)
       File.AppendAllText(System.Reflection.Assembly.GetExecutingAssembly().Location & ".msalLogs.txt", sb.ToString())
       sb.Clear()
   End Function

Dim Ref As Object, CheckRefEnabled%
    CheckRefEnabled = 0
    With ThisWorkbook
        For Each Ref In .VBProject.References
            If Ref.Name = "Scripting" Then
                CheckRefEnabled = 1
                Exit For
            End If
        Next Ref
        If CheckRefEnabled = 0 Then
            .VBProject.References.AddFromGUID "{420B2830-E718-11CF-893D-00A0C9054228}", 1, 0
        End If
    End With

Dim objFSO As Scripting.FileSystemObject
Dim myFolder As Scripting.Folder
Dim myFile As Scripting.File

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set myFolder = objFSO.GetFolder("C:\ME Financial Report\")

For Each myFile In myFolder.Files

       DCreated = myFile.DateCreated
       DCreated = Strings.Format(myFile.DateCreated, "DD-MM-YY,HH:MM")
       DModified = myFile.DateLastModified
       DModified = Strings.Format(myFile.DateLastModified, "DD-MM-YY, HH:MM")
       DModifiedAdd = DateAdd("n", 20, DModified)
       DModifiedAdd = Strings.Format(DModifiedAdd, "DD-MM-YY, HH:MM")
       Debug.Print DCreated, DModified, DModifiedAdd
       
       If DCreated >= DModifiedAdd Then
       MsgBox "File has been Modified, kindly revisit and download raw data -  " & myFile, vbCritical
       Exit Sub
       Else
    End If
Next myFile

Private Sub BindingNavigatorMoveNextItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorMoveNextItem.Click
    changeUser(usuarioTextBox.Text)
End Sub

AutoAdminLogon (1)
DefaultDomainName
DefaultUserName
Default Password
ForceAutoLogon (1)