VB中如何在一段数字中提取多段数字

Question

例如：
26548948
取第一位到第三位写入Label1
取第四位到第六位写入Label2
取第七位到第八位写入Label3
然后三个Label的值相乘输入Label4
新手，希望写得详细一些，求VB大神啊

Answer 1

s = "26548948"
Label1.Caption = Mid(s, 1, 3)
Label2.Caption = Mid(s, 4, 3)
Label3.Caption = Mid(s, 7, 2)
Label4.Caption = Val(Label1.Caption) * Val(Label2.Caption) * Val(Label3.Caption)

Answer 2

dim sstr as string="26548948"

label1=mid(sstr,1,3)
label2=mid(sstr,4,3)
label3=mid(sstr,7,2)
label4=val(label1)*val(label2)*val(label3)