PankajBanga,
Your Solution is great! However, if one wanted to make 08 the month instead of 10, the following slight modification accomplishes it.
Dim str As String = "08102004"
Dim dt As Date = New Date(str.Substring(4), str.Substring(0, 2), str.Substring(2, 2))
MessageBox.Show(dt)
Both solutions work well (ca8spo), depending on your needs. Stars to all!