Dim s1 As String = "19980327" Dim d1 As Date Dim y,m,d As Integer If s1.length = 8 Then y = cint(s1.SubString(0,4)) m = cint(s1.SubString(4,2)) d = cint(s1.SubString(6,2)) ElseIf s1.Length = 6 Then y = cint(s1.SubString(0,4)) m = cint(s1.SubString(4,2)) d = 1 End If d1 = New Date(y,m,d) output.show(d1)