博图wincc中怎么用VB脚本实现以下功能（下列代码是intouch中的脚本）

{ Remove _STAT to get raw tagname }

TagIDstr = StringLeft( TagIDstr, StringInString( TagIDstr,  "_STA", 1, 0) - 1);

{ Build inderect pointer names }

std_VLV_sta.Name = TagIDstr + "_STA";

std_VLV_cmd.Name  = TagIDstr + "_CMD";

std_VLV_fbt.Name = TagIDstr + "_FBT";

std_VLV_okt.Name  = TagIDstr + "_OKT";

std_VLV_ActiveCount.Name  = TagIDstr + "_ActiveCount";

std_VLV_FBECount.Name  = TagIDstr + "_FBECount";

std_VLV_RTimeCount.Name  = TagIDstr + "_RTimeCount";

{ Open window }

CALL stdShowAtAuto(280,340,"stdValve info and control");