Private Sub CommandButton1_Click()
    
    '写入代码
    Dim f, txt, result As String
    f = "run.py"
    Open f For Output As #1
    Print #1, TextBox_in.Value
    Close #1
    
    '中文编码问题，需将文件转为utf-8编码格式
    Dim fileName As String
    fileName = "run.py"
    Call ConvFile(fileName, fileName)
    
    '运行Python文件并重定向结果
    Dim res As Long
    res = Shell("cmd.exe /C python " & "run.py > res.txt", vbHide)
    
    '延时处理
    Dim Savetime As Single
    CommandButton1.Caption = "运行中..."
    Savetime = Timer '记下开始的时间
    While Timer < Savetime + 1 '循环等待
    DoEvents '转让控制权，以便让操作系统处理其它的事件
    Wend
    CommandButton1.Caption = "运行Python代码"
    
    '读取结果
    Open "res.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, txt
        result = result & txt & vbCr
    Loop
    Close #1
    TextBox_out.Text = result
End Sub

Private Sub ConvFile(InputFile As String, OutputFile As String) 
    Dim ReadStream As Object
    Set ReadStream = CreateObject("ADODB.Stream")
    Dim FileContent As String
    With ReadStream
        .Type = 2               'adTypeText
        '.Charset = "UNICODE"
        .Charset = "GB2312"     ' ANSI
        '.Charset = "UTF-8"
        .Open
        .LoadFromFile InputFile
        FileContent = .ReadText
        .Close
    End With
    Set ReadStream = Nothing
    Dim WriteStream As Object
    Set WriteStream = CreateObject("ADODB.Stream")
    With WriteStream
        .Type = 2               'adTypeText
        .Charset = "UTF-8"
        .Open
        .WriteText FileContent
        .SaveToFile OutputFile, 2  'adSaveCreateOverWrite
        .Flush
        .Close
    End With
    Set WriteStream = Nothing
End Sub