Ejemplo de menú chiquito

Private Sub CINCO_Click()
MsgBox ("LAURA YADIRA ROMO GONZÁLEZ")
End Sub
Private Sub DOS_Click()
UCase (Text1)
Text2 = UCase(Text1)
Text1.SetFocus
End Sub
Private Sub SEIS_Click()
Unload Me
End
End Sub
Private Sub TRES_Click()
UCase (Text1)
Text2 = UCase(Text1)
End Sub