Как ввести название города и вывести его население и площадь - VB

Option Explicit
 
Sub main()
Dim ss As String
Dim n, s 'As Double
'Open "d:\g.txt" For Input As 1 'http://ru.wikipedia.org/wiki/Список_городов_России_с_территорией_больше_100_квадратных_километров
'  ss = Input$(LOF(1), 1)
'Close 1
'Dim a, aa
'a = Split(ss, vbCrLf)
'For n = 0 To UBound(a)
'  aa = Split(Replace(a(n), ",", "."), vbTab)
'  Debug.Print "case """ & aa(1) & """: S=val(""" & aa(2) & """)"
'Next n
s = "Не знаю такого города."
n = "Несколько?"
ss = InputBox("Введите имя города -")
Select Case ss 'InputBox("Введите имя города -")
Case "Москва": s = Val("2550.00[1]"): n = 11979529
Case "Санкт-Петербург": s = Val("1439.00"): n = 5028000
Case "Волгоград": s = Val("859.353[2]"): n = 1018790
Case "Пермь": s = Val("799.68*[3]"): n = 1013887
Case "Уфа": s = Val("700*[4] — 707.93*[5]"): n = 1077719
Case "Казань": s = Val("614.16[6]")
Case "Воронеж": s = Val("596.51[7]")
Case "Орск": s = Val("580[8]")
Case "Омск": s = Val("572.9")
Case "Самара": s = Val("541.382*[9]")
Case "Чита": s = Val("538")
Case "Новосибирск": s = Val("506.67")
Case "Челябинск": s = Val("501.57[10]")
Case "Махачкала": s = Val("468.13")
Case "Екатеринбург": s = Val("468[12]")
Case "Березники": s = Val("431.118[13] или 524.51[14]")
Case "Братск": s = Val("428[15]")
Case "Новокузнецк": s = Val("424.27")
Case "Дзержинск": s = Val("421.53*[16][17][18]")
Case "Нижний Новгород": s = Val("410.68*[17][19] — 466.5[20]")
Case "Саратов": s = Val("393.975[21]")
Case "Курган": s = Val("393.03")
Case "Магнитогорск": s = Val("392.35")
Case "Хабаровск": s = Val("388.735[22]")
Case "Саранск": s = Val("383.27")
Case "Улан-Удэ": s = Val("377.12")
Case "Петропавловск-Камчатский": s = Val("362.14[24][4][25]")
Case "Сургут": s = Val("353.976[26]")
Case "Красноярск": s = Val("353.9[23]")
Case "Ростов-на-Дону": s = Val("348.5[27]")
Case "Ханты-Мансийск": s = Val("337.76")
Case "Владивосток": s = Val("331.16[28]")
Case "Липецк": s = Val("330[4] — 330.13[29]")
Case "Комсомольск-на-Амуре": s = Val("325.10[30]")
Case "Грозный": s = Val("324.16[31]")
Case "Барнаул": s = Val("322.01[32]")
Case "Благовещенск": s = Val("320.97[33][4]")
Case "Ульяновск": s = Val("316.9[4]")
Case "Ижевск": s = Val("315.6")
Case "Тольятти": s = Val("314.79")
Case "Нижний Тагил": s = Val("298.47[35]")
Case "Томск": s = Val("297.2")
Case "Магадан": s = Val("295[36]")
Case "Архангельск": s = Val("294.42")
Case "Бийск": s = Val("291.67")
Case "Владикавказ": s = Val("290.61")
Case "Пенза": s = Val("290.38[37]")
Case "Кемерово": s = Val("282.285")
Case "Иркутск": s = Val("277.35[38]")
Case "Лесосибирск": s = Val("277.00")
Case "Ставрополь": s = Val("276.689")
Case "Нижневартовск": s = Val("271.319[39]")
Case "Оренбург": s = Val("259[40]")
Case "Новоульяновск": s = Val("253.67")
Case "Чебоксары": s = Val("250.87*[4][25][41]")
Case "Копейск": s = Val("236.71[42]")
Case "Тюмень": s = Val("234.54")
Case "Брянск": s = Val("230.00*")
Case "Рязань": s = Val("224.163[4][25][43]")
Case "Калининград": s = Val("223.03")
Case "Белово": s = Val("219.34[44]")
Case "Астрахань": s = Val("208.69[11]")
Case "Ярославль": s = Val("205.8[46][4]")
Case "Чапаевск": s = Val("200.5")
Case "Старый Оскол": s = Val("199.1[4]")
Case "Краснодар": s = Val("192.19[47]")
Case "Златоуст": s = Val("190.4")
Case "Курск": s = Val("188.75[48] — ок. 189[4][25]")
Case "Баксан": s = Val("180.12")
Case "Сочи": s = Val("176.77[49]")
Case "Шадринск": s = Val("173.66")
Case "Набережные Челны": s = Val("171")
Case "Кумертау": s = Val("169.6")
Case "Биробиджан": s = Val("169.38[51][4][25]")
Case "Киров": s = Val("169.73[50]"): n = 483176
Case "Калуга": s = Val("168.5[4] — 170.5[52]")
Case "Волгодонск": s = Val("168.82")
Case "Соликамск": s = Val("166.55[53]")
Case "Смоленск": s = Val("166[4][25] — 166.35[54]")
Case "Южно-Сахалинск": s = Val("164.66[55]")
Case "Выборг": s = Val("160.847[56]")
Case "Красноармейск": s = Val("160.7")
Case "Каменск-Шахтинский": s = Val("159.99")
Case "Шахты": s = Val("159.08")
Case "Сибай": s = Val("154.31")
Case "Мурманск": s = Val("154.6")
Case "Нефтеюганск": s = Val("153.79")
Case "Белгород": s = Val("153.1[4]")
Case "Сыктывкар": s = Val("152[58]")
Case "Тверь": s = Val("152.22[4][57]")
Case "Волжский": s = Val("150[4] — 229.12[59]")
Case "Нефтекамск": s = Val("147.25*[60]")
Case "Тула": s = Val("145.8[4] — 153.52[61]")
Case "Кострома": s = Val("144.5[4]")
Case "Новошахтинск": s = Val("138.09")
Case "Петрозаводск": s = Val("134.98")
Case "Новочеркасск": s = Val("127.94")
Case "Находка": s = Val("127[63]")
Case "Владимир": s = Val("124.59[34]")
Case "Якутск": s = Val("122[4][25] — 129.87[62]")
Case "Орёл": s = Val("121[4][25] — 121.21[64]")
Case "Череповец": s = Val("120.94")
Case "Северодвинск": s = Val("120.51")
Case "Сызрань": s = Val("117[65]")
Case "Камышин": s = Val("117.97")
Case "Вологда": s = Val("115.73")
Case "Воткинск": s = Val("112.18")
Case "Железногорск (Курская область)": s = Val("112.03*[66]")
Case "Химки": s = Val("110.2[4][67]")
Case "Донецк (Ростовская область)": s = Val("110.34")
Case "Мыски": s = Val("108.7[68]")
Case "Стерлитамак": s = Val("108.52[4][25][69]")
Case "Иваново": s = Val("104.5")
Case "Ишимбай": s = Val("103.47[71]")
Case "Пятигорск": s = Val("103.73")
Case "Димитровград": s = Val("103.97")
Case "Мамоново": s = Val("102.69")
Case "Рыбинск": s = Val("101.42[74][4]")
Case "Невинномысск": s = Val("100.397[75]")
Case "Салават": s = Val("100.397[4][25][70]")
Case "Йошкар-Ола": s = Val("100.39*[72] — 101.80*[73]")
Case "Балашиха": s = Val("38.72[4] — 218.59*[4")
End Select
MsgBox ss & ": площадь " & s & " Население " & n & " человек."
End Sub