Ошибка 64 в VBAProject в Экселе

Формулировка задачи:

Выходит ошибка 64 Input pas end of file. Кажется, что где-то здесь ошибка, но могу ошибаться. Как можно исправить? Файл с кодом в архиве, ибо просто xlsm не загружается.

                    Листинг программы
                
 
                        
                          
                    
Private Sub StoreAuthInfo(token As String)
Dim path As String
Dim ts, file As Object
path = "G:\codetoken.txt"
Set ts = CreateObject("Scripting.FileSystemObject")
Set file = ts.CreateTextFile(path, True)
file.Write token: file.Close
End Sub
 
Private Function LoadAuthInfo() As String
Dim path As String
Dim dt, ts
path = "G:\codetoken.txt"
Set dt = CreateObject("Scripting.FileSystemObject")
If Not Dir(path) = "" Then
Set ts = dt.OpenTextFile(path, 1, True): LoadAuthInfo = ts.ReadAll: ts.Close
End If
End Function

Решение задачи: «Ошибка 64 в VBAProject в Экселе»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub StoreAuthInfo(Token As String)
    Dim path As String
    Dim fso As Object, txt As Object
    
    path = "G:\Codetoken.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txt = fso.CreateTextFile(path, True)
    txt.Write Token: txt.Close
End Sub
 
Private Function LoadAuthInfo() As String
    Dim path As String
    Dim fso As Object, txt As Object
 
    path = "G:\Codetoken.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(path) = True Then
       Set txt = fso.OpenTextFile(path)
       If Not txt.AtEndOfStream Then _
          LoadAuthInfo = txt.ReadAll
       txt.Close
    End If
End Function