Случайная буква и значение Powerpoint VBA

Question

Я пытаюсь получить случайный сгенерированный вывод с такими опциями:

Во-первых, буква, которая может быть R или L. Во-вторых, число, которое может быть только 15, 30, 45 или 60.

Например, выход может быть R45 или L15. Все это должно генерироваться случайным образом при каждом открытии слайда.

Я пытался с этим кодом, но безрезультатно, что вывод не отображается в метке. Может кто-нибудь дать мне подсказку?

signA = "R"
signB = "L"
cont = Int(Rnd * 100) + 1
Angle = Int(Rnd * 120) + 1

valore = cont Mod 2
If valore = 0 Then
    If Angle <= 30 Then
        vardec = "15"
        var = signA & vardec
    Else
        If Angle <= 60 Then
            vardec = "30"
            var = signA & vardec
        Else
            If Angle <= 90 Then
                vardec = "45"
                var = signA & vardec
            Else
                vardec = "60"
                var = signA & vardec
            End If
        End If
    End If
Else
    If Angle <= 30 Then
        vardec = "15"
        var = signA & vardec
    Else
        If Angle <= 60 Then
            vardec = "30"
            var = signA & vardec
        Else
            If Angle <= 90 Then
                vardec = "45"
                var = signA & vardec
            Else
                vardec = "60"
                var = signA & vardec
            End If
        End If
    End If
End If
ActivePresentation.Slides(4).Shapes("Label2").OLEFormat.Object.Caption = CStr(var)

Answer 1

Инструкции действительно работают, я проверил их на текстовой метке, просто проверьте, правильно ли вы ссылаетесь на метку.