VBA i Excel: Column heading og preselect i listbox?

Hej Alle sammen

Jeg er i gang med at lave mit første lille program i VBA i Excel. Desværre er jeg stødt ind i lidt problemer med min kode, som er:

Me.lstdry.AddItem "Meget vådt"
Me.lstdry.AddItem "Lidt vådt"
Me.lstdry.AddItem "OK"
Me.lstdry.AddItem "Lidt tørt"
Me.lstdry.AddItem "Meget tørt"
Me.lstdry.ListIndex = 2´
lstdry.ColumnHeads = True
ActiveCell.Offset(0, 3).Value = lstdry.Value

Problemet er så bare følgende:
1) Selvom jeg preselecter "OK" så bliver OK ikke altid overført til excelarket. Er der en bedre måde og preselecte på?

2) Jeg har sat Columnheads til - men hvordan definerer man hvad der skal stå i columnheads? lige nu bliver der bare vist en tom top-celle.

3) Jeg vil gerne kunne sætte hver item lig med en værdi ved overførsel til excelarket. F.eks vil "OK" bliver til et 3-tal ved overførsel til excelarket. Hvordan kan man lave det i VBA?

Glæder mig til at høre nogle gode råd til VBA koden.