Auto populate Textboxes fro Combobox selection

Hi,

I've just read a few similar threads but cant seem to work out my problem

I am using the following code to show only the unique:

Dim rng As Range
Dim Dn As Range
Dim Dic As Object
Set rng = Range(Range("E2"), Range("E" & Rows.Count).End(xlUp))
    Set Dic = CreateObject("scripting.dictionary")
        Dic.CompareMode = vbTextCompare
For Each Dn In rng
  If Not Dn = vbNullString Then Dic(Dn.Value) = Empty
Next
With Me.NJReportedCB
    .RowSource = ""
    .List = Dic.Keys
    .ListIndex = 0
End With

Following the 'NJReportedCB' there are 2 Textboxes: 'NJTelephoneTB' & 'NJEmailB'.

How can I get the 2 Textboxes to auto fill with the corresponding data from the ComboBox selection's row.

I thought this was really simple but i'm struggling and getting stressed

Any help greatly appreciated.

Thanks,

Cuba