yamasinさん、こんにちは。
秋といいます。

＞datetime dt
＞date d
＞time t
＞
＞d = date(left(em_2.text,8))
＞messagebox(\"\",string(d))
＞t = time(right(em_2.text,8))
＞
＞dt = datetime(d,t)
＞messagebox(\"\",string(dt))
＞

＞d = date(left(em_2.text,8))
の部分で桁が足りていないと思います。left関数に\"/\"も含めた桁数を指定してみてください。

d = date(left(em_2.text,10))
これで大丈夫だと思いますが……