VBA中的随机字母和值

我尝试使用以下选项获得随机生成的输出：

首先是一个字母，可以是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)

signA=“R”
signB=“L”
cont=Int（Rnd*100）+1
角度=整数（Rnd*120）+1
瓦洛雷=控制模式2
如果valore=0，则
如果角度说明确实有效，我在文本标签上测试了它，只需检查是否正确引用了标签。
如果在消息框中显示输出，会出现什么？只需在末尾添加MsgBox（CStr（var））…我尝试在和处添加MsgBox（CStr（var）），但没有出现任何消息框！我没有输出..没有消息框或消息框中没有任何内容？我想，应该显示一个消息框：）好的，我解决了这个问题！Var被错误地设置为整数，现在它可以工作了：）谢谢你！