求助易语言转VB如何写

.版本 2
.支持库 sock

    IP ＝ 取本机IP ()
    .计次循环首 (取数组成员数 (IP), N)
        .判断开始 (寻找文本 (IP [N], “10.26”, , 假) ＝ -1 且 寻找文本 (IP [N], “10.6”, , 假) ＝ -1 且 寻找文本 (IP [N], “10.86”, , 假) ＝ -1)
            到循环尾 ()
        .默认
            运行 (“route -p add 100.0.0.0 mask 255.255.255.0” ＋ “ ” ＋ IP [N], 真, #隐藏窗口)
        .判断结束
        跳出循环 ()
    .计次循环尾 ()