vb inputbox 函数怎么用？？？

Private Sub Command1_Click()
a: Text1 = Trim(InputBox("请输入姓名", "姓名"))
If Text1 = "" Then
MsgBox "未输入完整,请重新输入"
GoTo a
End If
b: Text2 = Trim(InputBox("请输入班级", "班级"))
If Text2 = "" Then
MsgBox "未输入完整,请重新输入"
GoTo b
End If
c: Text3 = Trim(InputBox("请输入年级", "年级"))
If Text3 = "" Then
MsgBox "未输入完整,请重新输入"
GoTo c
End If
d: Text4 = Trim(InputBox("请输入科目1分数(0-100)", "科目1"))
If IsNumeric(Text4) And Text4 <> "" Then
If Text4 < 0 Or Text4 > 100 Then
MsgBox "分数不正确,请重新输入"
GoTo d
End If
Else
MsgBox "请输入分数!"
GoTo d
End If
e: Text5 = Trim(InputBox("请输入科目2分数(0-100)", "科目2"))
If IsNumeric(Text5) And Text5 <> "" Then
If Text4 < 0 Or Text4 > 100 Then
MsgBox "分数不正确,请重新输入"
GoTo e
End If
Else
MsgBox "请输入分数!"
GoTo e
End If
f: Text6 = Trim(InputBox("请输入科目3分数(0-100)", "科目3"))
If IsNumeric(Text6) And Text6 <> "" Then
If Text6 < 0 Or Text6 > 100 Then
MsgBox "分数不正确,请重新输入"
GoTo f
End If
Else
MsgBox "请输入分数!"
GoTo f
End If

Text7 = Val(Text4) + Val(Text5) + Val(Text6) '总分
Text8 = Val(Text7) / 3 '平均分
End Sub

由于inputbox返回的都是string，如果要运算，就要把string转换成intrger或者其他数值形式
l
=
Cdbl(InputBox("l="))
s
=
Cdbl(InputBox("s="))
a
=
Cdbl(InputBox("a="))
b
=
Cdbl(InputBox("b="))
最好定义一下l、s、a、b、d为double型

private
sub
command1_click()
dim
s
as
string
s
=
inputbox("输入内容或点取消")
if
strptr(s)
=
0
then
msgbox
"你点击了取消"
else
msgbox
"你输入了:"
&
s
end
if
end
sub

问题看的不是很明白。。。