Private Sub Command1_Click() MsgBox Replace(Text1, "-", "")End SubPrivate Sub Form_Load() Text1 = Format("20120101", "0000-00-00")End Sub
Private Sub Command1_Click()MsgBox Format(Text1.Text, "YYYYMMDD")End Sub