Dim seconds As Long
seconds = Convert.ToInt64(Now.Subtract(DateTime.Parse("1/1/70")).Ticks / TimeSpan.TicksPerSecond)
Dim unixdate as New Date
unixdate = New Date
unixdate = unixdate.AddYears(1969)
unixdate = unixdate.Add(System.TimeSpan.FromSeconds(TextBox1.Text))
MsgBox(unixdate.ToLocalTime.ToString())