Puoi optare per due soluzione.

Uno sul lostFocus dell'elemento dove applichi la sintassi precedente oppure utilizzi quello di prima ma sposti il cursore alla fine ogni volta che fai un change

codice:
    Private Sub Text1_Change()
      Text1 = UCase(Text1)
      Text1.SelStart = Len(Text1)
    End Sub