Write-Host = $phoneim
$but_date.Add_Click({txtbox $datetext.text $imei.text $dateuser.Close()})
#Out-File -FilePath $txtfile -InputObject $msg -Append -Encoding unicode
$msg | out-host
$dateuser.Controls.Add($but_date)
$dateuser.Controls.Add($datetext)
$dateuser.Controls.Add($imei)
$dateuser.Controls.Add($itembox)
(Get-Date).Date.AddDays(8 - [int]$Date1.DayOfWeek)
$d.AddDays(1 + (7 - $d.DayOfWeek) % 7)