Gerar Integer Aleatório

Karaka.... o negócio pego pro meu lado aki...Galera preciso de uma instrução que gere um Numero Inteiro (Dim Valor as Integer) a cada hora que ocorrer o evento clique em um botão...preciso que seje um numero aleatório de 1 à 50. (inteiro)Alguem ae pode me da um HELP?