Encoding Charset nasıl değiştirilir?

Mail programımda characterset seçimi ekleyeyim dedim bir combobox'u bununla dolduracak koduda buldum ama kullanmayı beceremedim.
Aşağıda gördüğünüz kod ile charsetleri combobox'a dolduruyorum ama seçtiğim seçenekle
message.BodyEncoding = System.Text.Encoding.UTF8
yukarıdaki kodu nasıl değiştiricem aslında çok kolay index 0 seçilirse kod şu olsun 1 seçilirse bu olsun diye yapabilirim ama bu çok uzun olucak ayrıca System.Text.Encoding.UTF8 kodunun UTF8 kısmını silince çıkan seçeneklere baktığımda listedekilerin olmadığını gördüm bu yüzden bu işi nasıl yapıcamı anlayamadım

 Public Function _InitCharset()
        Dim nIndex As Integer = 0
        Dim defaultEncoding As String = "utf-8" ' System.Text.Encoding.Default.HeaderName

        m_arCharset(nIndex, 0) = "Arabic(Windows)"
        m_arCharset(nIndex, 1) = "windows-1256"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Baltic(ISO)"
        m_arCharset(nIndex, 1) = "iso-8859-4"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Baltic(Windows)"
        m_arCharset(nIndex, 1) = "windows-1257"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Central Euporean(ISO)"
        m_arCharset(nIndex, 1) = "iso-8859-2"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Central Euporean(Windows)"
        m_arCharset(nIndex, 1) = "windows-1250"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Chinese Simplified(GB18030)"
        m_arCharset(nIndex, 1) = "GB18030"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Chinese Simplified(GB2312)"
        m_arCharset(nIndex, 1) = "gb2312"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Chinese Simplified(HZ)"
        m_arCharset(nIndex, 1) = "hz-gb-2312"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Chinese Traditional(Big5)"
        m_arCharset(nIndex, 1) = "big5"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Cyrillic(ISO)"
        m_arCharset(nIndex, 1) = "iso-8859-5"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Cyrillic(KOI8-R)"
        m_arCharset(nIndex, 1) = "koi8-r"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Cyrillic(KOI8-U)"
        m_arCharset(nIndex, 1) = "koi8-u"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Cyrillic(Windows)"
        m_arCharset(nIndex, 1) = "windows-1251"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Greek(ISO)"
        m_arCharset(nIndex, 1) = "iso-8859-7"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Greek(Windows)"
        m_arCharset(nIndex, 1) = "windows-1253"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Hebrew(Windows)"
        m_arCharset(nIndex, 1) = "windows-1255"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Japanese(JIS)"
        m_arCharset(nIndex, 1) = "iso-2022-jp"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Korean"
        m_arCharset(nIndex, 1) = "ks_c_5601-1987"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Korean(EUC)"
        m_arCharset(nIndex, 1) = "euc-kr"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Latin 9(ISO)"
        m_arCharset(nIndex, 1) = "iso-8859-15"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Thai(Windows)"
        m_arCharset(nIndex, 1) = "windows-874"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Turkish(ISO)"
        m_arCharset(nIndex, 1) = "iso-8859-9"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Turkish(Windows)"
        m_arCharset(nIndex, 1) = "windows-1254"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Unicode(UTF-7)"
        m_arCharset(nIndex, 1) = "utf-7"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Unicode(UTF-8)"
        m_arCharset(nIndex, 1) = "utf-8"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Vietnames(Windows)"
        m_arCharset(nIndex, 1) = "windows-1258"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Western European(ISO)"
        m_arCharset(nIndex, 1) = "iso-8859-1"
        nIndex = nIndex + 1

        m_arCharset(nIndex, 0) = "Western European(Windows)"
        m_arCharset(nIndex, 1) = "Windows-1252"
        nIndex = nIndex + 1

        Dim selectIndex As Integer = 25 'utf-8
        Dim i As Integer = 0
        For i = 0 To nIndex - 1
            Ayarlar.ComboBox2.Items.Add(m_arCharset(i, 0))
            If String.Compare(m_arCharset(i, 1), defaultEncoding, True) = 0 Then
                selectIndex = i
            End If
        Next
        Ayarlar.ComboBox2.SelectedIndex = selectIndex
    End Function