Does this help?? (I added comments)
Code:
Private Sub Form_Current()
Dim ctl As Control
Dim I As Integer
Dim myarray() As String
Dim tmp As Integer
'if nothing in the control, exit the sub
If IsNull(Me.tbCallout) Then
Exit Sub
End If
' loop through all of the controls on the form
' to hide the 6 controls
For Each ctl In Me.Controls
'109 is a text box.
' Could also use the AcControlType Enumeration "acTextBox" instead of the value of 109
'The control tag property has a number in it.
If ctl.ControlType = 109 And ctl.Tag >= 1 And ctl.Tag < 7 Then
ctl.Visible = False
End If
Next
' use the split function to populate the array
myarray = Split(Me.tbCallout, ",")
' loop through the controls
For Each ctl In Me.Controls 'only want to check text boxes (109 is a text box.)
If ctl.ControlType = 109 Then
tmp = Val(ctl.Tag) 'convert the tag string to a value (number)
If tmp > 0 Then 'if tmp is a 0, there was not an entry in the tag property of the control
For I = 0 To UBound(myarray)
'check if an entry in the array matches whatins in tmp
If tmp = Val(myarray(I)) Then
ctl.Visible = True 'if they match, display the control
End If
Next
End If
End If
Next
End Sub