Random function in Vbscript?

Function DoStuff()
    Dim what, result
    what = Rand(1,4)
    Select Case what
        Case 1
            result = Action1()
        Case 2
            result = Action2()
        Case 3
            result = Action3()
        Case 4
            result = Action4()
    End Select
End Function

'Choose an integer between min and max
Function Rand(min, max)
    max=4
    min=1
    Randomize
    Rand = (Int((max-min+1)*Rnd+min))
End Function

' Define your own actions here
Function Action1()
    Action1 = "Result 1!"
End Function

Function Action2()
    Action2 = "Result 2!"
End Function

Function Action3()
    Action3 = "Result 3!"
End Function

Function Action4()
    Action4 = "Result 4!"
End Function