On Error Resume NextDim stt() As Stringstt() = Split(Text1.Text, ".")Text2.Text = stt(0)Text3.Text = 0 & "." & stt(1)