Private Sub Button5_Click(sender As Object, e As EventArgs) Handles _
   Button5.Click
        Dim idate As Date
        Dim db As Double
        If Double.TryParse(Trim(TextBox11.Text), db) Then
            ' text is convertible to Double, and value contains the Double 
            ' value now
        End If
        idate = Date.FromOADate(db)
        Debug.Print(idate.ToString)
    End Sub