¿Array or Select Case?

    Dim arrays(1 To 3) As Integer

    '@@ Forma 1:
    arrays(1) = 10
    arrays(2) = 40
    arrays(3) = 80

    If Val(Text1.Text) > 0 And Val(Text1.Text) < 4 Then _
        MsgBox "Acertado! " & arrays(Val(Text1.Text))

    '@@ Forma 2:
    Select Case Val(Text1.Text)

        Case 1
            MsgBox "Acertado! 10"

        Case 2
            MsgBox "Acertado! 40"

        Case 3
            MsgBox "Acertado! 80"

    End Select