Create a new TextFile With command button in excel.

Public Sub PopulateTextFile()
    Dim fso As New FileSystemObject
    Dim oFile As TextStream
    
    If (Not fso.FileExists("C:\Test.txt")) Then
        Set oFile = fso.CreateTextFile("C:\Test.txt", False)
    End If
    
    oFile.WriteLine "Test"
    
    oFile.Close
    
    Set oFile = Nothing
    Set fso = Nothing 
   
End Sub