Funktionen blir fel?

Har gjort en funktion som ser ut så här:

Function sorten(txt) 
txt = Replace(txt, "1", "Ljus lager")
txt = Replace(txt, "2", "Mörklager")
txt = Replace(txt, "3", "Ale")
txt = Replace(txt, "4", "Porter & Stout")
txt = Replace(txt, "5", "Veteöl")
txt = Replace(txt, "6", "Övrig öl")
txt = Replace(txt, "7", "Cider")
txt = Replace(txt, "8", "Blanddrycker")
txt = Replace(txt, "9", "Tequila")
txt = Replace(txt, "10", "Brännvin")
txt = Replace(txt, "11", "Gin")
txt = Replace(txt, "12", "Cognac")
txt = Replace(txt, "13", "Likör")
txt = Replace(txt, "14", "Rom")
txt = Replace(txt, "15", "Whiskey")
txt = Replace(txt, "16", "Övrig sprit")
txt = Replace(txt, "17", "Vitt")
txt = Replace(txt, "18", "Rött")
txt = Replace(txt, "19", "Rosé")
txt = Replace(txt, "20", "Dessert")
txt = Replace(txt, "21", "Mousserande")
sorten = txt 
End Function

Men när jag försöker få fram 17 alltså Vitt så blir det

Ljus lagerCider

Någon som vet vad det är för fel?