If I want to change the case from lower case to upper case in the following location I can use the following code.
Dim cell As Range
For Each cell In Range("F3").Cells
If cell.HasFormula = False Then cell = UCase(cell)
Next

How do I achieve the same result if the location is a TextBox created in a UserForm. ie TextBox1 in UserForm1