maybe like this

[vba]

Me.TextBox1.Text = Left$(totfailrate, 6) & Right$(totfailrate, Len(CStr(totfailrate)) - InStrRev(totfailrate, "E"))
[/vba]