Visual Basic - Variable aleatoria dentro de un Msgbox Ayuda!!

'agrega un botón a tu formulario y asocia este manejador de evento.

Private Sub Command1_Click()

Dim Pregunta(2) As String

Pregunta(0) = "Pregunta 1"

Pregunta(1) = "Pregunta 2"

Pregunta(2) = "Pregunta 3"

'Variable para el número aleatorio

Dim i As Integer

i = Me.NumeroAleatorio(LBound(Pregunta), UBound(Pregunta))

MsgBox Pregunta(i)

End Sub

'Funcion para generar un número aleatorio dentro de un rango

Public Function NumeroAleatorio(ByVal ValorMinimo As Long, ByVal ValorMaximo)

    Randomize Timer

    NumeroAleatorio = Int((ValorMaximo - ValorMinimo + 1) * Rnd) + ValorMinimo

End Function