VS 2005 Rnd() Function - Only Randomizes 1 Number - Help

I have a game that is called a Penalty Shootout,
I'm having trouble of Randomizing the Goalkeeper's Position after the shot,
this is my code,

Dim Goalkeeper As Integer
Randomize()
Goalkeeper = Int(Rnd() * 5)

Select Case Goalkeeper
Case 1
GoalKeeperC.Show()
GoalKeeperL.Hide()
GoalKeeperR.Hide()
GoalkeeperT.Hide()
GoalkeeperB.Hide()
Case 2
GoalKeeperC.Hide()
GoalKeeperL.Show()
GoalKeeperR.Hide()
GoalkeeperT.Hide()
GoalkeeperB.Hide()
Case 3
GoalKeeperC.Hide()
GoalKeeperL.Hide()
GoalKeeperR.Show()
GoalkeeperT.Hide()
GoalkeeperB.Hide()
Case 4
GoalKeeperC.Hide()
GoalKeeperL.Hide()
GoalKeeperR.Hide()
GoalkeeperT.Show()
GoalkeeperB.Hide()
Case 5
GoalKeeperC.Hide()
GoalKeeperL.Hide()
GoalKeeperR.Hide()
GoalkeeperT.Hide()
GoalkeeperB.Show()

End Select