Code:
Dim BoomsEyesOpen As Boolean = False
        If BoomsEyesOpen = True Then
            Play(HoN)
        Else
            Sleep(10000000)
        End If
    End Sub
That pretty much sums it up.