[Iska]

Мда…

Код:

Option Explicit

Sub Sample()
    Dim sPath As String
    
    sPath = "c:\path\podschet.txt"
    
    Shell """" & Environ("comspec") & """ /c "">""" & sPath & """ echo 1"""
End Sub