hvorfor kommer den aldrig ned i løkke 1 ?

Dim Input

'option explicit
'dim Initialer

    lengde = 0
    dim msgtekst
    msgtekst = "Indtast initaler"
    While lengde < 1
        Initialer = InputBox(msgtekst, "Indtast navn", "f.eks abc") 'InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])
        lengde = Len(Initialer)
       
        if lengde < 1 and lengde > 4 then
        Initialer = InputBox("fejl", "Indtast navn" & Initialer)
        end if
       
       
        if lengde > 1 And lengde < 5 then
        MsgBox ("Du indtasted: " & Initialer)
        end if
           
    wend