参考答案

'正确程序
    If HS1.Value + Text1.Text > HS1.Max Then
        MsgBox "文本框中的数值太大"
    ElseIf HS1.Value + Text1.Text < HS1.Min Then
        MsgBox "文本框中的数值太小"
    Else
        HS1.Value = HS1.Value + Text1.Text
    End If
End Sub
'答案
'Max 或 100
'HS1.Min 或 1
'HS1.Value