error en vaule de progressbar, Le resto mas de lo que tiene y manda error

[edno82mx]

Hola, disculpen por el titulo pero no se como expresarme para definir ese error y solo se me ocurrio asi.
Bueno el detalle es que tengo este codigo:

Código:

    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim numeroAleatorio As New Random()
        Dim valorAleatorio As Integer = numeroAleatorio.Next(0, 5)
        If valorAleatorio = 0 Then
            MsgBox("No te bajaron Sangre... puuf que suerte", , "Suertudo")
        ElseIf valorAleatorio = 1 Then
            hpbar.Value -= 10
            lhpp.Text = hpbar.Value & "%"
        ElseIf valorAleatorio = 2 Then
            hpbar.Value -= 20
            lhpp.Text = hpbar.Value & "%"
        ElseIf valorAleatorio = 3 Then
            hpbar.Value -= 30
            lhpp.Text = hpbar.Value & "%"
        ElseIf valorAleatorio = 4 Then
            hpbar.Value -= 40
            lhpp.Text = hpbar.Value & "%"
        ElseIf valorAleatorio = 5 Then
            hpbar.Value -= 50
            lhpp.Text = hpbar.Value & "%"
        End If
    End Sub

El error es que cuando ya el progressbar tiene un value digamos de 30 y toca restarle 50 me manda error de que no se puede restar o algo parecido.
En si este error me manda:

http://edno82mx.com/imagenes/error.png

Como puedo evitar que eso pase?
Gracias por su ayuda de antemano.