Private Sub UserForm_Initialize()
Dim CTRL As Variant
Dim x As Byte
For Each CTRL In Array(TextBox3, TextBox1, TextBox4, TextBox5, TextBox2, CommandButton1)
CTRL.TabIndex = x
x = x + 1
Next
End Sub