求一函数 对以数据串做处理 ,用VB的if语句怎么写,我写的报错缺少Then