excel - Excel VBA - 動的バリアント

Question

私は経験がないので、タイトルが正しいかどうかはわかりません。

次のコードがありますが、なぜ機能しないのかわかりません。

Sub AddEvent2()

    Dim p As String
    Dim rgb1, rgbULP, rgbPULP, rgbSPULP, rgbXLSD, rgbALPINE, rgbJET, rgbSLOPS As Variant

    p = Sheets("AdminSheet").Cells(4, 23).Value 'Product

    rgbULP = rgb(177, 160, 199)
    rgbPULP = rgb(255, 192, 0)
    rgbSPULP = rgb(0, 112, 192)
    rgbXLSD = rgb(196, 189, 151)
    rgbALPINE = rgb(196, 215, 155)
    rgbJET = rgb(255, 255, 255)
    rgbSLOPS = rgb(255, 0, 0)
    rgb1 = "rgb" & p
    ActiveSheet.Range("A1").Value = rgb1

End Sub

私は基本的な知識だと思いますが、バリアントの値（などrgbULP = rgb(177, 160, 199)またはrgbPULP = rgb(255, 192, 0)）を Range("A1") に入れたいのですが、何が問題なのかわかりません。

誰かが私を説明できますか？

よろしく、ジョージ。