题目：6、在文本框中输入一个数，按移动按钮，文本框中是正数则滚动条向右移动相应刻度，超过最大刻度则MsgBox提示“输入值太大” ；负数则向左移，超过最小刻度则不再动，并MsgBox提示。      

或者给我修改得更简单~

Private Sub Command1_Click()
dim i as long
i = Val(Text1.Text)'这里提示错误,错误380 属性值无效~
if i=0 then                '输入的不是数值时,i=0
  MsgBox "请输入数值"
elseIf i < HScroll1.Min Then   '太小
  MsgBox "输入值太小"
elseIf i > HScroll1.Max Then   '太大
  MsgBox "输入值太大"
else                           '合适
  HScroll1.Value=i
End If
End Sub