Private Sub Command1_Click()
Dim a(100)
Dim str, b As String
j = Len(Text1.Text)
b = Text1.Text
For i = 1 To j
a(i) = Mid(b, i, 1)
str = str & a(i)
If i = 4 Then
str = str & "-"
End If
If i = 6 Then
str = str & "-"
End If
Next
Text2.Text = str
End Sub
'当在"Text1box1"中输入"20030201"是,在"Textbox2"中可以得到你要的结果........