Присвоение значений переменным - VBA

Формулировка задачи:

В комбобокс на форме выводятся значения из столбца B.

Private Sub UserForm_Initialize()
i = 3
 Do Until Cells(i, 2) = Empty
    Model.AddItem (Cells(i, 2))
    i = i + 1
 Loop
End Sub

Как сделать, чтобы при выборе модели переменным присваивались значения из соседних столбцов? Например, выбрали в combobox "Focus", тогда переменные Tip = "Легковой", Sum = "700000", Proz = "16"

Решение задачи: «Присвоение значений переменным»

textual
                            Листинг программы 
                        

                            Private Sub Model_Change()
'Sheets("Ведомость_12").Activate
    Set r = Sheets("Ведомость_12").UsedRange.Columns(2).Find(What:=Model.Value, LookIn:=xlValues, LookAt _
                                                                                                  :=xlWhole)
    If Not r Is Nothing Then
        'sumkr.Value = r.Value
        Tip = r.Next
        Sum = r.Next.Next
        proz = r.Offset(, 3)
    End If
    MsgBox Tip & "-" & Sum & "-" & proz
End Sub
                        