Dim s() As Byte="1-0:1.8.1(003808.351*kWh)"
Dim start=bc.IndexOf(s,"(") As Byte
Dim stop=bc.IndexOf(s,"*kW") As Byte
Dim closingparenthesis=bc.IndexOf(s,")") As Byte
Dim gas=bc.IndexOf(s,"*m3)") As Byte
Log(start)
Log(stop)
Log(closingparenthesis)
Log(gas)