Preciso de uma função deste tipo:

Private Sub UserForm_Initialize()

Me.BackColor = minhacor("laranja")
End Sub

Eu informo para a função minhacor o parâmetro "laranja" e ela me retornar o RGB dessa cor.

Não precisa ser uma função, pode ser uma sub, desde que eu apenas tenha de informar a string "laranja" e ela retorne rgb(255, 200, 0).

Observação:

Não pode ser utilizando ColorIndex, pois seria limitado a 56 cores, mas eu preciso que sejam outras cores que não tem no ColorIndex.