eleganter lösen aber wie

Dim i%
i = 1
Do Until Cells(i, 1).Value = "Ende_Zeile"
If Cells(i, 1)  "" Then _
ComboBox2.AddItem Cells(i, 1) & vbTab & Cells(i, 1).Row
i = i + 1
Loop

da nicht alle zeilen befüllt sind will ich die differenz zwischen der combobox auswahl und dem nachfolgenden wert in der combobox ermitteln, dafür hab ich folgenden code zusammengebastelt:

Private Sub ComboBox2_Change()
Dim j%, k%
Dim m As String
j = Right(ComboBox2.Value, Len(ComboBox2.Value) - InStr(ComboBox2.Value, vbTab))
m = ComboBox2.List(ComboBox2.ListIndex + 1)
k = Right(m, Len(m) - InStr(m, vbTab))
MsgBox "von= " & j & " bis= " & k
End Sub

es funktioniert zwar einwandfrei, nur sieht es mir dannach aus als ob ich wiedermal zu kompliziert gedacht habe, vielleicht gibt es eine elegantere lösung?
wäre über jeden vorschlag dankbar
grüße
asterix