Вывести строку-описание данного числа, например: 256 — "двести пятьдесят шесть"

Public Class Form1
    '5. Дано целое число в диапазоне 100 – 999. Вывести строку — словесное описание данного числа, 
    '    например: 256 — "двести пятьдесят шесть", 814 — "восемьсот четырнадцать".
    Dim sto() As String = {"НОЛЬ", "сто", "двести", "триста", "четыреста", "пятьсот", "шестьсот", "семьсот", "восемьсот", "девятьсот"}
    Dim eden() As String = {"НОЛЬ", "один", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять"}
    Dim des() As String = {"НОЛЬ", "десять", "двадцать", "тридцать", "сорок", "пятьдесят", "шестьдесят", "семьдесят", "восемьдесят", "девяносто"}
    Dim desFrag() As String = {"десять", "одиннадцать", "двенадцать", "тринадцать", "четырнадцать", "пятнадцать", "шестнадцать", "семнадцать", "восемнадцать", "девятнадцать"}
    Private Sub MaskedTextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles MaskedTextBox1.TextChanged
        Dim a As Integer
        Dim b, s As String
        s = ""
        If Len(MaskedTextBox1.Text) = 1 Then
            a = CInt(MaskedTextBox1.Text)
            Label1.Text = eden(a)
        ElseIf Len(MaskedTextBox1.Text) = 2 Then
            b = MaskedTextBox1.Text
            If Mid(b, 1, 1) = 1 Then
                Label1.Text = desFrag(Mid(b, 2, 2))
            ElseIf Mid(b, 1, 1) <> 1 Then
                If Mid(b, 2, 2) = 0 Then
                    s = s + des(Mid(b, 1, 1))
                    Label1.Text = s
                Else
                    s = s + des(Mid(b, 1, 1)) + " " + eden(Mid(b, 2, 2))
                    Label1.Text = s
                End If
                End If
        ElseIf Len(MaskedTextBox1.Text) = 3 Then
            b = MaskedTextBox1.Text
            If Mid(b, 2, 1) = 0 And Mid(b, 3, 3) = 0 Then
                s = s + sto(Mid(b, 1, 1))
                Label1.Text = s
            ElseIf Mid(b, 2, 1) = 0 And Mid(b, 3, 3) <> 0 Then
                s = s + sto(Mid(b, 1, 1)) + " " + eden(Mid(b, 3, 3))
                Label1.Text = s
            ElseIf Mid(b, 2, 1) = 1 Then
                s = s + sto(Mid(b, 1, 1)) + " " + desFrag(Mid(b, 3, 3))
                Label1.Text = s
            ElseIf Mid(b, 2, 1) > 1 Then
                s = s + sto(Mid(b, 1, 1)) + " " + des(Mid(b, 3, 3)) + " " + eden(Mid(b, 3, 3))
                Label1.Text = s
            End If
        End If
    End Sub