'After loadlayout:
Dim tfToUpper As TextFormatter
tfToUpper.Initialize(Me,"ToUpperCase",tfUpperCase) ' Or whatever your textfield is called.'
'And add the callback sub
Sub ToUpperCase_TextValidator(Change As TFChange) As TFChange
'Force to UpperCase
Change.Text = Change.Text.ToUpperCase
Return Change
End Sub