Private Sub cboTwoColumns_Change()
Dim iCounter As Integer, iRow As Integer
Dim sSelect As String
With cboTwoColumns
If .ListIndex >= 0 Then
sSelect = .List(.ListIndex, 0) & " - " & .List(.ListIndex, 1)
iRow = .ListIndex
cboTwoColumns.Text = sSelect
End If
For iCounter = 1 To 3
Controls("TextBox" & iCounter).Text = .List(iRow, iCounter - 1)
Next iCounter
End With
End Sub