Dim textler(10) As Object

        textler(0) = TextBox1

        textler(1) = TextBox2

        textler(2) = TextBox3

        textler(3) = TextBox4

        textler(4) = TextBox5

        textler(5) = TextBox6

        textler(6) = TextBox7

        textler(7) = TextBox8

        textler(8) = TextBox9

        textler(9) = TextBox10

    Dim i As Integer

        For i = 0 To 13

   textler(i).Text = StrConv( textler(i).Text, vbProperCase)

        textler(i).SelectionStart = Len( textler(i).Text)    

 Next i

şöylede bi kullanım var ama şöyle olur tek butonla mesala 10textboxa bu işlemi yaptırmak gibi


yada en mantıklısı şu şekilde sanırım ayhan beyin kodu yazdıktan sonra tüm textboxların içine sadece IlkHarfiBuyukYap yazarsan tek tek olur textlere harf girilidğinde