Hi Tony,
I alway thought there should be a function for that, but I never came across it. My workaround was to multiply by 1, which should also work here.
MD

Sheet1.Range("J4") = (TextBox2) *1