Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = "" Then MessageBox.Show("Error Message if use didn't choose a value.") Else LevelChooser()
    End Sub


    Private Sub LevelChooser()
        Dim a(0 To 81) As Integer
        a(1) = 800
        a(2) = 1900
        a(3) = 3100
        a(4) = 4900
        a(5) = 7100
        a(6) = 9600
        a(7) = 12400
        a(8) = 15600
        a(9) = 19200
        a(10) = 23100
        a(11) = 27500
        a(12) = 32400
        a(13) = 37800
        a(14) = 43700
        a(15) = 50100
        a(16) = 57000
        a(17) = 64400
        a(18) = 72300
        a(19) = 80700
        a(20) = 89600
        a(21) = 99000
        a(22) = 108900
        a(23) = 119300
        a(24) = 130200
        a(25) = 141600
        a(26) = 153500
        a(27) = 165900
        a(28) = 178800
        a(29) = 192200
        a(30) = 206200
        a(31) = 220800
        a(32) = 236000
        a(33) = 251800
        a(34) = 268200
        a(35) = 285200
        a(36) = 302800
        a(37) = 321000
        a(38) = 339800
        a(39) = 359200
        a(40) = 379200
        a(41) = 399800
        a(42) = 421000
        a(43) = 442800
        a(44) = 465200
        a(45) = 488200
        a(46) = 511800
        a(47) = 536000
        a(48) = 560800
        a(49) = 586200
        a(50) = 612350
        a(51) = 639250
        a(52) = 666900
        a(53) = 695300
        a(54) = 724450
        a(55) = 754350
        a(56) = 785000
        a(57) = 816400
        a(58) = 848550
        a(59) = 881450
        a(60) = 915100
        a(61) = 949500
        a(62) = 9846500
        a(63) = 1020550
        a(64) = 1057200
        a(65) = 1094600
        a(66) = 1132750
        a(67) = 1171650
        a(68) = 1211300
        a(69) = 1251700
        a(70) = 1292850
        a(71) = 1334500
        a(72) = 1377150
        a(73) = 1420300
        a(74) = 1464450
        a(75) = 1509100
        a(76) = 1554750
        a(77) = 1600900
        a(78) = 1648050
        a(79) = 1695700
        a(80) = 1744350
        a(81) = 1794850

        Dim Levelchoosed As Integer
        Levelchoosed = ComboBox1.Text
        memoryh4x(&H1CCC0D4, a(Levelchoosed), 4)
        'MessageBox.Show("Level selected text. Your new level is: " + Levelchoosed)
    End Sub