SoloCodigo

Ayuda por favor, este codigo me muestra la fecha actual del sistema en numeros al cargar el formulario

Private Sub Form_Load()
txtFecha.Text = Date
End Sub

Y necesito que me la muestre en numeros y letras, asi:

02-OCT-2003     ó    02/OCT/2003

Como le hago, GRACIAS DE ANTEMANO

bueno este es una forma de hacerlo tambien que lo hice con un label o tambien se puede con un caudro de texto
Private Sub Form_Load()
Label1.Caption = Format(Date, "long date")
'de de esta forma
'Label1.Caption = Format(Date, "dd/mmm/yyyy")
End Sub