Visual Basic - timer

si me pudieras ayudar te lo agradeceria mucho ya que tengo un pequeño problema ocn el timer ya que quiero que por el evento gotfocus o setfocus se aparesca en un text la suma de tres dias de la fecha actual osea por ejemplo si estamos a 17 de abril kiero que aparesca 20 de abril

Me funciona bien esto

Private Sub Command1_Click()
Text1 = Format(Date + 3, "d mmm")
End Sub