Como fazer um Random de 4 Números

Boa Tarde,

Estou com uma pequena dúvida, pois estou conseguindo fazer um Random, porém ele não está funcionando corretamente :/

Tenho um Public ( Aleatorio ) e uma Function ( Próxima ), respectivamente, para dar Randomize nas alternativas e para trocar de questão.

Public Sub Aleatorio()
Randomize()
R = Rnd() * 3
If R = 0 Then
rbResposta1.Text = "A) " & Resp1
rbResposta2.Text = "B) " & Resp2
rbResposta3.Text = "C) " & Resp3
rbResposta4.Text = "D) " & Resp4
RespCorreta = "A"
ElseIf R = 1 Then
rbResposta1.Text = "A) " & Resp3
rbResposta2.Text = "B) " & Resp1
rbResposta3.Text = "C) " & Resp4
rbResposta4.Text = "D) " & Resp2
RespCorreta = "B"
ElseIf R = 2 Then
rbResposta1.Text = "A) " & Resp4
rbResposta2.Text = "B) " & Resp2
rbResposta3.Text = "C) " & Resp1
rbResposta4.Text = "D) " & Resp3
RespCorreta = "C"
ElseIf R = 3 Then
rbResposta1.Text = "A) " & Resp2
rbResposta2.Text = "B) " & Resp4
rbResposta3.Text = "C) " & Resp3
rbResposta4.Text = "D) " & Resp1
RespCorreta = "D"
ElseIf R = 4 Then
rbResposta1.Text = "A) " & Resp2
rbResposta2.Text = "B) " & Resp3
rbResposta3.Text = "C) " & Resp4
rbResposta4.Text = "D) " & Resp1
RespCorreta = "D"
End If
End Sub

Function Proxima()
If Questao = 1 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
ElseIf Questao = 2 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
ElseIf Questao = 3 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
ElseIf Questao = 4 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
ElseIf Questao = 5 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
ElseIf Questao = 6 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
ElseIf Questao = 7 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
ElseIf Questao = 8 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
ElseIf Questao = 9 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
ElseIf Questao = 10 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
ElseIf Questao = 11 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
ElseIf Questao = 12 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
ElseIf Questao = 13 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
ElseIf Questao = 14 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
ElseIf Questao = 15 Then
Resp1 = "RESPOSTA CORRETA"
Resp2 = "D"
Resp3 = "A"
Resp4 = "X"
Enunciado = "LOL WTF BBQ"
End If
bProxima.Enabled = False
rtbQuestao.Text = Enunciado
labelQuestao.Text = "Questão " & Questao
End Function

Porém ele não retorna corretamente a String "RespCorreta", na hora de responder e clicar na alternativa com "RESPOSTA CORRETA" ele não executa a função corretamente e o usuário não vai conseguir acertar a questão.

Grato,

iXaDe.