Open ThisWorkbook.Path & "\Dimona\openssl.bat" For Output As #1
Print #1, "CMD /k C:\laragon\bin\apache\httpd-2.4.47-win64-VS16\bin\openssl.exe" & vbCrLf & _
"Pause" & vbCrLf & "pkcs7 -in " & ThisWorkbook.Path & "\Dimona\FI.DIMN.111080." & Format(Now, "yyyymmDD") & "." & Format(Now, "whhnn") & ".R.1-signed-cades-baseline-b.pkcs7" & " -out " & ThisWorkbook.Path & "\Dimona\FS.DIMN.111080." & Format(Now, "yyyymmDD") & "." & Format(Now, "whhnn") & ".R.1.1" & " -inform der -outform pem"
Close #1