Text fil ind i et 3 dropdown boxe

Sub test()
Dim L As String
Dim Data As String
Dim Tmp As Variant
Dim X1 As Integer

Open "C:\Test.txt" For Input As #1
While EOF(1) = False
    Input #1, L
    Data = Data & L & ";"
Wend
Close 1
Data = Left(Data, Len(Data) - 1)

Tmp = Split(Data, ";")
For X1 = 0 To UBound(Tmp) Step 3
    Combo1.AddItem Tmp(X1 + 0)
    Combo2.AddItem Tmp(X1 + 1)
    Combo3.AddItem Tmp(X1 + 2)
Next X1

End Sub

Takker for hjælpen.