Prueba este que ademas realiza otras funciones interesantes..
Private Sub Form_Load()
Const Dias_de_la_Semana = "A1D2L3I4K5E6M7O"
Dim i, s(1 To 12) As String * 1
s(4) = "_": s(10) = Mid(Dias_de_la_Semana, Len(Dias_de_la_Semana), 1)
s(8) = "_": s(12) = Mid(Dias_de_la_Semana, Len(Dias_de_la_Semana), 1)
s(5) = Mid(Dias_de_la_Semana, 3, 1): s(3) = Mid(Dias_de_la_Semana, 1, 1)
s(11) = Mid(Dias_de_la_Semana, 9, 1): s(1) = Mid(Dias_de_la_Semana, 3, 1)
s(6) = Mid(Dias_de_la_Semana, 11, 1): s(9) = Mid(Dias_de_la_Semana, 5, 1)
s(2) = Mid(Dias_de_la_Semana, 7, 1): s(7) = Mid(Dias_de_la_Semana, 5, 1)
For i = 1 To 12
Tag = Tag + s(i)
Next
Caption = "Fecha de hoy: "
MsgBox Tag, , Date: Text1 = Date
AutoRedraw = True: Print "Today is " & Tag
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim e
e = MsgBox("Are you sure? ", vbYesNo, "Hello " & Right(Tag, 4))
If e = vbNo Then Cancel = True: Print "You like " & Right(Tag, 4) _
Else MsgBox "Good luck " & Right(Tag, 4), , "Bye bye "
End Sub