Sub LangButton_Click
Dim Languages As List
Languages.Initialize
Languages.Add("English")
Languages.Add("Bemba")
Languages.Add("Lozi")
Languages.Add("Luvale")
Languages.Add("Lunda")
Languages.Add("Tonga")
Languages.Add("Kaonde")
Languages.Add("Nyanja (Lusaka)")
Languages.Add("Nyanja (Standard)")
LangChoice = Languages.Get(InputList(Languages, "Language Choice",0))
LabelLang.Text = LangChoice
End Sub