Automatisk hentet værdi i combobox

Jeg skal bruge noget kode/ forslag til kode hvor jeg kan få indsat værdier i comboboxe når vinduet åbnes

Dim hustype1 As String

    If Ark1.Cells(4, 2).Value = 1 Then
      hustype1 = Ark4.Cells(4, 3).Value
      ComboHustype.AddItem hustype1
    Else
    End If

Det her skal bare være sat ind fra starten


Håber at i kan forstå hvad jeg mener