Reduite largeur TextBox

Private Sub CheckBox1_Click()
Dim i As Long
    For i = 1 To 100
        If Me.CheckBox1.Value Then
            Select Case i Mod 4
                Case 1
                    Me.Controls("TextBox" & i).Width = 100
                Case 2
                    Me.Controls("TextBox" & i).Left = 132
                Case 3
                    Me.Controls("TextBox" & i).Width = 100
                    Me.Controls("TextBox" & i).Left = 240
                Case 0
                    Me.Controls("TextBox" & i).Left = 342
            End Select
        Else
            Select Case i Mod 4
                Case 1
                    Me.Controls("TextBox" & i).Width = 60
                Case 2
                    Me.Controls("TextBox" & i).Left = 96
                Case 3
                    Me.Controls("TextBox" & i).Width = 60
                    Me.Controls("TextBox" & i).Left = 198
                Case 0
                    Me.Controls("TextBox" & i).Left = 264
            End Select
        End If
    Next i
End Sub

Private Sub CheckBox1_Click()
Dim i As Byte
For i = 1 To 100 Step 4
    Me.Controls("TextBox" & i).Width = IIf(CheckBox1, 100, 60)
    Me.Controls("TextBox" & i + 1).Left = IIf(CheckBox1, 132, 96)
    Me.Controls("TextBox" & i + 2).Left = IIf(CheckBox1, 240, 198)
    Me.Controls("TextBox" & i + 2).Width = IIf(CheckBox1, 100, 60)
    Me.Controls("TextBox" & i + 3).Left = IIf(CheckBox1, 342, 264)
Next i
End Sub