try this code:
Dim str As String = "20110108"
Dim pattern As String = "yyyyMMdd"
Dim FindDate As Date
Dim FinalDate As String
If DateTime.TryParseExact(str, pattern, Nothing, DateTimeStyles.None, FindDate) Then
FinalDate = FindDate.ToString("yyyy/MM/dd")
End If
www.authorcode.com