Visual Basic - scrollbar

necesito que en un text por medio de un srcroll me aumente de uno en uno
es decir si preciono hacia arriba me debe aparecer 1 si lo vuelvo a presionar me debe aparecer 2 si presiono hacia abajo me debe quedar en 1

Fijate la las propiedades "SmallChange" y "LargeChange" del scroll esten en 1 y despuess en el evento Change del Scroll Pone Text1.text=Hscroll1.value ( o Vscroll.value, dependiendo de si hayas usado el horizontal o el vertical)

ejemplo:

Private Sub HScroll1_Change()
Text1 = HScroll1.Value
End Sub