Visual Basic - Otro if con pobremas

El tema es que no llego a desarrollar el tema de simplificar los if.

En este caso quiero que cuando en Text4 reciba un comando dependiendo del numero el sroll se valla automáticamente.


Private Sub Text7_Change()

If Text7.Text = vbCr & vbLf & "*P vol 0" & vbCr & vbLf & vbCr & vbLf & "OK" & vbCr & vbLf ThenHScroll1.Value = 0

Bueno si que quiero saberlo pero quizá ,l saber como llegar a resolverlo saber como llegar a esta conclusión.

esto entendi amigo

Private Sub HScroll1_Change()
Text1 = HScroll1
If Text1 = 100 Then ' en 100 es el valor que uses
HScroll1.Value = 0
End If
End Sub