VBA Skript zur Automatischen Anmeldung bei Outlook

Ich versuche momentan mittels VBA Skript die Outlook Profilerstellung und Anmeldung mit E-Mail und Passwort zu automatisieren.
Hier bin Ich aber leider auf ein Problem gestoßen und da Ich mich mit VBA nicht gut auskenne und mir schon ein paar Tage lang den Kopf zerbrochen habe dachte Ich, dass Ich hier mal um Hilfe bitte.
Code:
Sub LoginToOutlook()
Dim username As String;
Dim password As String

' Setzen Sie den Pfad zur Datei mit den Anmeldeinformationen
Dim loginInfoFilePath As String
loginInfoFilePath = "\\server\zu\Pfad\login_info.txt"

' Lesen Sie die Anmeldeinformationen aus der Datei
Dim file As Integer
file = FreeFile()
Open filePath For Input As file
Input #file, username
Input #file, password
Close file

' Setzen Sie die Anmeldeinformationen im Anmeldefenster von Outlook
Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
objShell.Windows("Anmeldung - Outlook").Document.all("username").Value = username
objShell.Windows("Anmeldung - Outlook").Document.all("password").Value = password

' Senden Sie die Anmeldeanforderung
objShell.Windows("Anmeldung - Outlook").Document.all("signIn").Click
End Sub
Als Fehlermeldung kommt:
Outlook.vbs(2, 18) Kompilierungsfehler in Microsoft VBScript: Anweisungsende erwartet

Hoffe jemand kann mir helfen weil Ich finde weder Syntax fehler noch stellen wo eine Anweisung nicht beendet wurde.

MFG 4Gettt