How to call python script on excel vba?

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Dim path As String
path = Application.ActiveWorkbook.path
Call Shell("cmd /c cd " & path & " & python.exe -m python.main", vbNormalFocus)

End Sub