Un par de dudas con formularios

Hola,
tengo un par de preguntas sobre formularios,
quiero hace un formulario y quiero que me aparezca por defecto la fecha
de hoy
en un cuadro de texto.
El codigo creo que seria algo así:
Private Sub TextBox2_Change()
Range("B11").Select
ActiveCell.FormulaR1C1 = 'Que tengo que poner aqui? como se inserta la
funcion =HOY()
End Sub
Otra pregunta,
En el mismo formulario quiero tener un desplegable donde yo pueda
elegir valores que yo he puesto en "Hoja3" en las celdas "A1" y "A2"
Esto se hacerlo mediante una hoja de dialogo pero mediante un
formulario de VB no se hacerlo.
Gracias