Pense en Select Case como La Ultima Instancia ya que son mas de 30 Variables... Osea es un Numero :S
Bueno Eso...
Listo Ya lo Solucione, Gracias Seba y Black, Use CallByName... No Pense que Servia para Variables Bueno si...
Aca un Code De Ejemplo que anda de Diez...
Código
Public Variable As String Private Sub Command1_Click() CallByName Me, "Variable", VbLet, "Hola" MsgBox Variable End Sub Private Sub Form_Load() Variable = "Manzana" MsgBox Variable End Sub