A.Private Sub Text1_Change( )Text2. Text=UCase(Textl. Text)End Sub B.Private Sub Text1_Change( )Text1. Text=UCase(Text2. Text)End Sub C.Private Sub Text1_LostFocus( )Text2. Text = UCase(Text1. Text)End Sub D.Private Sub Text1_LostFocus( )Text1. Text = UCase(Text2.Text)End Sub