主题：判断字符串是否包含星号，如果有星号则进行分割填充，代码怎么写？

如图，当规格包含*号 比如20*0.05  那么自动分割和填充 宽度等于20 厚度等于0.05

        如果含有多个*  只取前面两部分 比如100*0.03*15公斤 那么宽度=100 厚度=0.03

        如果规格不含* 则不填充宽度和厚度。

      代码怎么写啊？

      当规格等于80*100=33G 类似这样的时候会出错，怎么解决？

Dim tbl As Table = Tables("吹膜选产品_Table1")
If tbl.Current IsNot Nothing Then

    Tables("chuimo").Current("chanpinid") = tbl.Current("chanpinid")

'分割规格,分别自动填入 宽度 厚度
Dim guige1=tbl.current("guige")
If guige1="" Or guige1.IndexOf("*") = -1 Then
Tables("chuimo").current("kuandu")=""
 Tables("chuimo").current("houdu")=""
Else
Dim s1() As String
s1=guige1.split("*")
Tables("chuimo").current("kuandu")=s1(0)
Tables("chuimo").current("houdu")=s1(1)
End If

End If
Forms("吹膜选产品").Close()