小吳 VBQA 程式設計討論

下面是目前我的程式碼
Private Sub HS1_Change()
If HS1 ＞= 61 Then
　　HS1.Value = 60
　　MsgBox "數值超出範圍，60"
　　Else
　　End If
End Sub
Private Sub HS2_Change()
If HS2 ＞= 61 Then
　　HS2.Value = 60
　　MsgBox "數值超出範圍，60"
　　Else
　　End If
End Sub
HS=HScrollbar，我想在HS1每增加2時，HS2的值會加1，請問該如何做？本來是想用
IF HS1 ＞=2 Then
HS2.value=HS2.value+1
else
end if
但是這樣變成凡是HS1大於2時，HS2會持續地增加，結果就當機了，請問該如何改？謝謝！另外，我一直翻書卻找不到...關於msgbox中的問題...
text1.text="2"
text2.text="5"
msgbox"兩數分別為____"　　＜-----想將text1,2中的數值依序帶入msgbox中，該如何做？雖然有教過，但是都忘光了...上面兩個小問題希望大家能夠見諒。謝謝。