nella lostfocus

text1.text=replace(text1.text,":","")
text1.text=replace(text1.text,".","")
text1.text=format(text1.text,"0000")
text1.text=mid(text1.text,1,2) & ":" & mid(text1.text,3,2)