Можно ли перевести код из JS в Visual Basic - VB

var WSHShell = WScript.CreateObject("WScript.Shell");
 
try //Начало обработки ошибок, для того чтобы не выскакивала ошибка, в случае отказа установки сертификата
{
    var FSO = WScript.CreateObject("Scripting.FileSystemObject")
    
    //Стандартные настройки CAPICOM
    var CAPICOM_LOCAL_MACHINE_STORE = 1;
    var CAPICOM_CURRENT_USER_STORE = 2;
    var CAPICOM_OTHER_STORE = "AddressBook";
    var CAPICOM_MY_STORE = "MY";
    var CAPICOM_STORE_OPEN_READ_WRITE = 1;
 
    var strStoreNameToUse = CAPICOM_OTHER_STORE;
    
    //Открываем хранилище сертификатов
    var objCertStore = new ActiveXObject("CAPICOM.Store");
    
    //узнаём где мы (путь)
    var Path = WSHShell.CurrentDirectory
    
    //Ставим корневые сертификаты
    Path3 = (Path + "\\ROOT")
    var FSO = WScript.CreateObject("Scripting.FileSystemObject")
    var f = FSO.GetFolder(Path3)
    
    //читаем список файлов (сертификатов) в массив
    fc = new Enumerator(f.files);
    var str2 = new Array();
    var i = 0
    for (; !fc.atEnd(); fc.moveNext())
        {
        str2[i] = fc.item();
        i++
        }
    objCertStore.Open(CAPICOM_CURRENT_USER_STORE, "ROOT", CAPICOM_STORE_OPEN_READ_WRITE);
    for (var j = 0; j<i;)
        {
        objCertStore.Load(str2[j])
        j++
        }
    WSHShell.popup("Корневые сертификаты установлены успешно!",0,"Завершение",0+64)
 
    }
 
    catch(e) {}//Конец обработки ошибок, для того чтобы не выскакивала ошибка, в случае отказа установки сертификата

Option Explicit
 
Const CAPICOM_LOCAL_MACHINE_STORE = 1
Const CAPICOM_CURRENT_USER_STORE = 2
Const CAPICOM_OTHER_STORE = "AddressBook"
Const CAPICOM_MY_STORE = "My"
Const CAPICOM_STORE_OPEN_READ_WRITE = 1
 
Private Sub Command1_Click()
'On Error Resume Next
Dim oCert As Variant
Dim oStore As Variant
 
Set oStore = CreateObject("CAPICOM.Store")
    
    oCert.Load "C:\1.cer"
    oStore.Open CAPICOM_CURRENT_USER_STORE, "ROOT", CAPICOM_STORE_OPEN_READ_WRITE
    oStore.Add oCert
    oStore.Close
End Sub

oCert.Load "C:\1.cer"