Visual Basic - Simplificar código if

Hola a todos,

Tengo un problema con el código y es que tengo que simplificarlo o me volveré mas tonto de lo que estoy. El tema que en verdad tengo que mandar como 850 comando dependiendo del Scroll como podría solucionarlo os mando un ejemplo

If HScroll1.Value = 0 Then
WS.SendData "vol 0" & vbCrLf
End If

If HScroll1.Value = 1 Then
WS.SendData "vol 1" & vbCrLf
End If

If HScroll1.Value = 2 Then
WS.SendData "vol 2" & vbCrLf
End If

If HScroll1.Value = 3 Then
WS.SendData "vol 3" & vbCrLf
End If

If HScroll1.Value = 4 Then
WS.SendData "vol 4" & vbCrLf
End If

If HScroll1.Value = 5 Then
WS.SendData "vol 5" & vbCrLf
End If

If HScroll1.Value = 6 Then
WS.SendData "vol 6" & vbCrLf
End If

If HScroll1.Value = 7 Then
WS.SendData "vol 7" & vbCrLf
End If

If HScroll1.Value = 8 Then
WS.SendData "vol 8" & vbCrLf
End If

If HScroll1.Value = 9 Then
WS.SendData "vol 9" & vbCrLf
End If

If HScroll1.Value = 10 Then
WS.SendData "vol 10" & vbCrLf
End If

If HScroll1.Value = 11 Then
WS.SendData "vol 11" & vbCrLf
End If

If HScroll1.Value = 12 Then
WS.SendData "vol 12" & vbCrLf
End If

If HScroll1.Value = 13 Then
WS.SendData "vol 13" & vbCrLf
End If

If HScroll1.Value = 14 Then
WS.SendData "vol 14" & vbCrLf
End If

If HScroll1.Value = 15 Then
WS.SendData "vol 15" & vbCrLf
End If

If HScroll1.Value = 16 Then
WS.SendData "vol 16" & vbCrLf
End If

If HScroll1.Value = 17 Then
WS.SendData "vol 17" & vbCrLf
End If

If HScroll1.Value = 18 Then
WS.SendData "vol 18" & vbCrLf
End If

If HScroll1.Value = 19 Then
WS.SendData "vol 19" & vbCrLf
End If

If HScroll1.Value = 20 Then
WS.SendData "vol 20" & vbCrLf
End If

If HScroll1.Value = 21 Then
WS.SendData "vol 21" & vbCrLf
End If

Y asi tengo que llegar hasta el 850. alguien me puede ayudar

Sin If

WS.SendData "vol " & HScroll1.Value & vbCrLf

no hacen falta los if

Muchas gracias Pedro era que facil que
pero al final era asi

WS.SendData "vol" & vbCrLf & HScroll1.Value

Muchas gracias