vb实现写vbs规则脚本

以下为代码节选
需要用vb实现生成以下vbs代码 其中标红的部分是变化的 1676 1670等等为以4递增的需要替换成其他的以某个数为起始的一列数 并写入到脚本的相应位置，vb怎么实现这样需求，麻烦各位高手指点，小弟不胜感激
#$language = "VBScript"
#$interface = "1.0"

crt.Screen.Synchronous = True

' This automatically generated script may need to be
' edited in order to work correctly.

Sub Main
crt.Screen.Send "conf ra 1676" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "wlan 32 traffic limit sta av va 3000" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "exit" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config)# "
crt.Screen.Send "conf ra 1680" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "wlan 32 traffic limit sta av va 3000" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "exit" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config)# "
crt.Screen.Send "conf ra 1684" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "wlan 32 traffic limit sta av va 3000" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "exit" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config)# "
crt.Screen.Send "conf ra 1688" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "wlan 32 traffic limit sta av va 3000" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "exit" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config)# "
crt.Screen.Send "conf ra 1692" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "wlan 32 traffic limit sta av va 3000" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "exit" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config)# "
crt.Screen.Send "conf ra 1696" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "wlan 32 traffic limit sta av va 3000" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "exit" & chr(13)

crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config)# "
crt.Screen.Send "conf ra 1700" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "wlan 32 traffic limit sta av va 3000" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "exit" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config)# "
crt.Screen.Send "conf ra 1704" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "wlan 32 traffic limit sta av va 3000" & chr(13)
crt.Screen.WaitForString "SXLUL-MS-WLAN-AC02(config-radio)# "
crt.Screen.Send "exit" & chr(13) --------------------编程问答-------------------- 用FOR循环 --------------------编程问答-------------------- 如何使用，请三哥指点一二 --------------------编程问答--------------------

补充：VB ,  VBA