Get cells value in textbox according to combobox slection in simple way

[HaroonSid]

hi, everyone

i am using below code to get cells value in textboxes according to combobox1 selection

Dim bul As Range, i As Byte
TextBox3 = Empty: TextBox4 = Empty: TextBox5 = Empty: TextBox6 = Empty: TextBox7 = Empty: TextBox8 = Empty:
TextBox9 = Empty: TextBox10 = Empty: TextBox11 = Empty: TextBox12 = Empty: TextBox13 = Empty: TextBox14 = Empty:
TextBox15 = Empty: TextBox16 = Empty: TextBox17 = Empty: TextBox18 = Empty: TextBox19 = Empty: TextBox20 = Empty:
TextBox21 = Empty: TextBox22 = Empty: TextBox23 = Empty
For Each bul In Sheets("OF EXT").Range("B2:B" & Cells(Rows.count, 2).End(xlUp).Row)
    If bul = ComboBox1 Then
    i = 0
     ' bul.EntireRow.Activate
        TextBox3 = bul.Offset(i, 4)
        TextBox4 = bul.Offset(i, 5)
        TextBox5 = bul.Offset(i, 6)
        TextBox6 = bul.Offset(i, 7)
        TextBox7 = bul.Offset(i, 8)
        TextBox8 = bul.Offset(i, 9)
        TextBox9 = bul.Offset(i, 10)
        TextBox10 = bul.Offset(i, 11)
        TextBox11 = bul.Offset(i, 12)
        TextBox12 = bul.Offset(i, 13)
        TextBox13 = bul.Offset(i, 14)
        TextBox14 = bul.Offset(i, 15)
        TextBox15 = bul.Offset(i, 16)
        TextBox16 = bul.Offset(i, 17)
        TextBox17 = bul.Offset(i, 18)
        TextBox18 = bul.Offset(i, 19)
        TextBox19 = bul.Offset(i, 20)
        TextBox20 = bul.Offset(i, 21)
        TextBox21 = bul.Offset(i, 22)
        TextBox22 = bul.Offset(i, 23)
        TextBox23 = bul.Offset(i, 24)
                
    End If
    
Next bul

i have 125 textboxes here and my offset is till 126

like
TextBox3 = bul.Offset(i, 4) to,,,,TextBox125 = bul.Offset(i, 126)

i want to do this process in simple way..

thanx a lot