Update this is what I came up with and it worked
Private Sub CBOk_Click()
tbentry = tbentry
Sheets("ToolChange").Range("C3").Value = tbentry.Text
tbentry.SetFocus
tbentry = Cells(3, 3)
End Sub
However, the value and form still remains active so I will need to close the form and erase the entry...