VBA/Excel/Access/Word/Forms/ScrollBar
Assign scrollbar value to B3
 
     Private Sub ScrollBar1_Change()
         Range("B3").Value = ScrollBar1.Value
     End Sub 
     Private Sub ScrollBar1_Change()
         Range("B3").Value = ScrollBar1.Value
     End Sub