[RESOLVED] Random Number Problem

[mouse88]

Here is my function for generating a random number:

Public Function GenRandomNo(ByVal MinValue As Integer, ByVal MaxValue As Integer) As Integer

        Dim RndInst As New Random 'Create New Random'

        GenRandomNo = RndInst.Next(MinValue, MaxValue) 'Generate Random Integer Between The Min And Max Value'

    End Function

And here is where I am using it:

Public Function CheckPowerUp() As Boolean

        Dim RndNo As Integer = GenRandomNo(1, 5) 'Generate A Number Between 1 and 5'

        Select Case RndNo 'Check Generated Number, Return True If Number Is 5'
            Case 1
                Return False
            Case 2
                Return False
            Case 3
                Return False
            Case 4
                Return False
            Case 5
                Return True
        End Select

    End Function

I have put a breakpoint and created a test log and for some reason it is never generating a 5 only 1 to 4. Any ideas why this could be happening?