combobox/textbox/userform/other question

[RPIJG]

I am using this code...




Code
-------------------

Private Sub NameBox_DropButtonClick()
Dim i As Integer, ii As Integer

With NameBox
If .ListIndex >= 0 Then
For ii = 1 To 16
Controls("TextBox" & ii).Value = Format(Cells(Rng(.ListIndex + 1).Row, ii + 1), "00000")
Next
End If
End With
End Sub

-------------------




I have the formatting set for 5 numbers and if not to add zero'
however at TextBox14 I have a number that I only want 4 for. Is ther
anyway I can modify what I have above so that only TextBox14 is allowe
to have 4 and the rest are forced to 5

 

[RPIJG]

nevermind I figured it :