HT-ODOO-SELLING-PI-LEEHSIEHJUI/HT-ODOO-SELLING-PI/01、銷售管理系統/銷售發票.vb

Public Class 銷售發票
    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    ReadOnly xlBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
    Private Sub Set_天心銷售單()
        Dim ds1 As New DataSet
        清單1_dgv.DataSource = Nothing : ds1.Clear()
        清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單1_dgv.ColumnHeadersHeight = 25
        清單1_dgv.AllowUserToAddRows = False
        SQL_天心銷售單("已轉發票")
        da1.Fill(ds1) : 清單1_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單1_dgv.Columns(0).FillWeight = 100 : 清單1_dgv.Columns(0).ReadOnly = True
        For I As Integer = 1 To 14 : 清單1_dgv.Columns(I).Visible = False : Next
    End Sub
    Private Sub 清單1_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單1_dgv.RowPostPaint
        For I As Integer = 0 To 清單1_dgv.Rows.Count - 1
            If 清單1_dgv.Rows(I).Cells("還未完單").Value.ToString = "" Then : 清單1_dgv.Rows(I).DefaultCellStyle.BackColor = Color.LightGreen : End If
        Next
    End Sub
    Private Sub Set_天心受訂明細()
        Dim ds1 As New DataSet
        清單1_1_dgv.DataSource = Nothing : ds1.Clear()
        清單1_1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單1_1_dgv.ColumnHeadersHeight = 40
        清單1_1_dgv.AllowUserToAddRows = False
        SQL_天心銷售單明細(訂單號_tb.Text, "已轉發票")
        da1.Fill(ds1) : 清單1_1_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單1_1_dgv.Columns(0).Visible = False : 清單1_1_dgv.Columns(1).FillWeight = 30 : 清單1_1_dgv.Columns(3).FillWeight = 80 : 清單1_1_dgv.Columns(5).FillWeight = 40
        清單1_1_dgv.Columns(2).Visible = False : 清單1_1_dgv.Columns(6).FillWeight = 40 : 清單1_1_dgv.Columns(7).FillWeight = 40 : 清單1_1_dgv.Columns(8).FillWeight = 60
        清單1_1_dgv.Columns(10).Visible = False : 清單1_1_dgv.Columns(11).FillWeight = 40 : 清單1_1_dgv.Columns(12).FillWeight = 60 : 清單1_1_dgv.Columns(13).FillWeight = 60
        清單1_1_dgv.Columns(9).FillWeight = 60
        清單1_1_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 清單1_1_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00"
        清單1_1_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.00"
        清單1_1_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        清單1_1_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單1_1_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單1_1_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單1_1_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        清單1_1_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單1_1_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        清單1_1_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        總數量_lb.Text = "0" : 總金額_lb.Text = "0"
        For I As Integer = 0 To 13 : 清單1_1_dgv.Columns(I).ReadOnly = True : Next
        For I As Integer = 0 To 清單1_1_dgv.Rows.Count - 1
            清單1_1_dgv.Rows(I).Cells(1).Value = I + 1 : 清單1_1_dgv.Rows(I).Cells("選擇").Value = False
            If IsDBNull(清單1_1_dgv.Rows(I).Cells("已轉").Value) Then : 清單1_1_dgv.Rows(I).Cells("已轉").Value = False : End If
            總數量_lb.Text = CInt(總數量_lb.Text) + 清單1_1_dgv.Rows(I).Cells("數量").Value
            總金額_lb.Text = CInt(總金額_lb.Text) + 清單1_1_dgv.Rows(I).Cells("金額").Value
        Next
        總數量_lb.Text = Strings.Format(CInt(總數量_lb.Text), "#,##0") : 總金額_lb.Text = Strings.Format(CInt(總金額_lb.Text), "#,##0")
    End Sub
    Private Sub Set_銷售單()
        Dim ds1 As New DataSet
        清單2_dgv.DataSource = Nothing : ds1.Clear()
        清單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單2_dgv.ColumnHeadersHeight = 25
        清單2_dgv.AllowUserToAddRows = False
        SQL_銷售單()
        da1.Fill(ds1) : 清單2_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單2_dgv.Columns(0).FillWeight = 100 : 清單2_dgv.Columns(0).ReadOnly = True
        For I As Integer = 1 To 16 : 清單2_dgv.Columns(I).Visible = False : Next
    End Sub
    Private Sub Set_銷售單明細()
        Set_銷售單_描述() : Dim ds1 As New DataSet
        清單2_1_dgv.DataSource = Nothing : ds1.Clear()
        清單2_1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單2_1_dgv.ColumnHeadersHeight = 25
        清單2_1_dgv.AllowUserToAddRows = False
        SQL_銷售單明細(送貨單號_tb.Text)
        da1.Fill(ds1) : 清單2_1_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單2_1_dgv.Columns(0).FillWeight = 25 : 清單2_1_dgv.Columns(3).FillWeight = 65 : 清單2_1_dgv.Columns(5).FillWeight = 50 : 清單2_1_dgv.Columns(1).FillWeight = 80
        清單2_1_dgv.Columns(6).FillWeight = 40 : 清單2_1_dgv.Columns(7).FillWeight = 60 : 清單2_1_dgv.Columns(8).Visible = False : 清單2_1_dgv.Columns(2).FillWeight = 110
        清單2_1_dgv.Columns(9).Visible = False : 清單2_1_dgv.Columns(10).Visible = False : 清單2_1_dgv.Columns(4).FillWeight = 65 : 清單2_1_dgv.Columns("件號").Visible = False
        清單2_1_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 清單2_1_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
        清單2_1_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
        清單2_1_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        清單2_1_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單2_1_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        清單2_1_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單2_1_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        清單2_1_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        清單2_1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        總數量a_lb.Text = "0" : 總金額a_lb.Text = "0"
        For I As Integer = 0 To 8 : 清單2_1_dgv.Columns(I).ReadOnly = True : Next : 清單2_1_dgv.Columns(2).ReadOnly = False
        For I As Integer = 0 To 清單2_1_dgv.Rows.Count - 1
            清單2_1_dgv.Rows(I).Cells(0).Value = I + 1 : 清單2_1_dgv.Rows(I).Cells("選擇").Value = False
            總數量a_lb.Text = CInt(總數量a_lb.Text) + 清單2_1_dgv.Rows(I).Cells("Quantity").Value
            總金額a_lb.Text = CInt(總金額a_lb.Text) + 清單2_1_dgv.Rows(I).Cells("Amount").Value
            If 清單2_1_dgv.Rows(I).Cells("Description").Value.ToString = "" And 清單2_1_dgv.Rows(I).Cells("件號").Value.ToString <> "" Then
                Dim 比對 As Boolean = False
                For J As Integer = 0 To 清單3_dgv.Rows.Count - 1
                    If 清單2_1_dgv.Rows(I).Cells("件號").Value.ToString = 清單3_dgv.Rows(J).Cells("對方貨號").Value.ToString Then
                        清單2_1_dgv.Rows(I).Cells("Description").Value = 清單3_dgv.Rows(J).Cells("描述").Value.ToString : 比對 = True : Exit For
                    End If
                Next
                If 比對 = False Then
                    清單2_1_dgv.Rows(I).Cells("Description").Value = "[" & 清單2_1_dgv.Rows(I).Cells("件號").Value.ToString & "]"
                End If
            End If
        Next
        總數量a_lb.Text = Strings.Format(CInt(總數量a_lb.Text), "#,##0") : 總金額a_lb.Text = Strings.Format(CInt(總金額a_lb.Text), "#,##0") : 大寫轉換()
        總數量b_lb.Text = Strings.Format(CInt(總數量a_lb.Text), "#,##0")
    End Sub
    Private Sub Set_銷售單_描述()
        Dim ds1 As New DataSet
        清單3_dgv.DataSource = Nothing : ds1.Clear()
        清單3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單3_dgv.ColumnHeadersHeight = 25
        清單3_dgv.AllowUserToAddRows = False
        SQL_銷售單明細_描述()
        da1.Fill(ds1) : 清單3_dgv.DataSource = ds1.Tables(0) : conn.Close()
    End Sub
    Private Sub 清單1_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            訂單號_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("受訂單號").Value.ToString : 受訂日期_dtp.Value = 清單1_dgv.Rows(e.RowIndex).Cells("受訂日期").Value.ToString
            預交日期_dtp.Value = 清單1_dgv.Rows(e.RowIndex).Cells("預交日期").Value.ToString : 客戶編號_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("客戶編號").Value.ToString
            客戶名稱_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("客戶名稱").Value.ToString : 統一編號_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("統一編號").Value.ToString
            連絡電話_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("連絡電話").Value.ToString : 送貨地址_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("送貨地址").Value.ToString
            傳真_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("傳真").Value.ToString : 經辦業務_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("經辦業務").Value.ToString
            交易方式_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("交易方式").Value.ToString : 備註_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("備註").Value.ToString
            幣別_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("幣別").Value.ToString : 匯率_tb.Text = 清單1_dgv.Rows(e.RowIndex).Cells("匯率").Value.ToString
            Set_天心受訂明細()
        End If
    End Sub
    Private Sub 清單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單1_1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If 清單1_1_dgv.Rows(e.RowIndex).Cells("已轉").Value = False Then
                If 清單1_1_dgv.Rows(e.RowIndex).Cells("選擇").Value = False Then
                    清單1_1_dgv.Rows(e.RowIndex).Cells("選擇").Value = True
                Else : 清單1_1_dgv.Rows(e.RowIndex).Cells("選擇").Value = False : End If
            End If
        End If
    End Sub
    Private Sub 清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單1_1_dgv.RowPostPaint
        For i As Integer = 0 To 清單1_1_dgv.Rows.Count - 1
            If 清單1_1_dgv("選擇", i).Value = True Then
                清單1_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
            Else : 清單1_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White : End If
        Next
    End Sub
    Private Sub 清單2_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單2_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            送貨單號_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("送貨單號").Value.ToString : 客戶資訊_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("客戶基本資料").Value.ToString
            客戶名稱_cb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("客戶名稱").Value.ToString : 出貨日期_dtp.Value = 清單2_dgv.Rows(e.RowIndex).Cells("出貨日期").Value.ToString
            開單人員_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("經辦人員").Value.ToString : 出貨地點_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("出貨地點").Value.ToString
            運送到_cb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("運送到").Value.ToString : 運送方式_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("運送方式").Value.ToString
            出貨方_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("出貨方").Value.ToString : 貿易方式_cb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("貿易通則").Value.ToString
            出貨備註_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("出貨備註").Value.ToString : 貨櫃_cb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("貨櫃").Value.ToString
            貨櫃ID_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("貨櫃ID").Value.ToString : 貨櫃封條_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("貨櫃封條").Value.ToString
            棧板數_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("棧板數量").Value.ToString : 製造_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("製造").Value.ToString
            品牌_tb.Text = 清單2_dgv.Rows(e.RowIndex).Cells("品牌").Value.ToString
            Set_銷售單明細()
        End If
    End Sub
    Private Sub 清單2_1_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 清單2_1_dgv.MouseUp
        Dim 位置Y As Integer = 清單2_1_dgv.SelectedCells(0).ColumnIndex : Dim 位置 As Integer = 清單2_1_dgv.SelectedCells(0).RowIndex
        If 位置Y <> 2 Then
            If 清單2_1_dgv.Rows(位置).Cells("選擇").Value = False Then : 清單2_1_dgv.Rows(位置).Cells("選擇").Value = True
            Else : 清單2_1_dgv.Rows(位置).Cells("選擇").Value = False : End If
        End If
    End Sub
    Private Sub 清單2_1_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單2_1_dgv.RowPostPaint
        For i As Integer = 0 To 清單2_1_dgv.Rows.Count - 1
            If 清單2_1_dgv("選擇", i).Value = True Then
                清單2_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
            Else : 清單2_1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White : End If
        Next
    End Sub
    Private Sub 語言_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 語言_cb.SelectedIndexChanged
        If 首次進入 = False Then
            If 語言_cb.Text = "中文" Then : 出貨備註_lb.Text = "出貨備註 :" : 總數量1_lb.Text = "總數量 :" : 總金額1_lb.Text = "總金額 :"
                公司名稱_lb.Text = "翰德精密工業股份有限公司" : 送貨單號_lb.Text = "送貨單號 :" : 出貨日期_lb.Text = "出貨日期 :"
                地址_lb.Text = "屏東縣長治鄉神農東路22號 " & vbCrLf & "郵遞區號 : 908126 " & vbCrLf & "台灣"
                客戶資料_lb.Text = "客戶基本資料 :" : 經辦_lb.Text = "經辦人員 :" : 出貨地點_lb.Text = "出貨地點 :"
                運送到_lb.Text = "運送到 :" : 運送方式_lb.Text = "運送方式 :" : 出貨方_lb.Text = "出貨方 :" : 貿易方式_lb.Text = "貿易通則 :"
                金額大寫_lb.Text = "總金額 :" : 貨櫃_lb.Text = "貨櫃 :" : 貨櫃ID_lb.Text = "貨櫃ID :" : 貨櫃封條_lb.Text = "貨櫃封條 :"
                總數量2_lb.Text = "總數 :" : 製造_lb.Text = "製造 :" : 品牌_lb.Text = "品牌 :" : 統編_lb.Text = "統編 :"
            Else : 出貨備註_lb.Text = "Ship on/about:" : 總數量1_lb.Text = "Quantity Total :" : 總金額1_lb.Text = "Amount Total :"
                公司名稱_lb.Text = "HAN TEC PRECISION INDUSTRY CO., LTD." : 送貨單號_lb.Text = "Delivery #" : 出貨日期_lb.Text = "Shipping Date:"
                地址_lb.Text = "NO. 22, SHENNONG E. RD., CHANGZHI TOWNSHIP, " & vbCrLf & "PINGTUNG COUNTY " & vbCrLf & "908126 " & vbCrLf & "Taiwan"
                客戶資料_lb.Text = "For account and risk of Messrs.:" : 經辦_lb.Text = "Salesperson:" : 出貨地點_lb.Text = "Ship From:"
                運送到_lb.Text = "Ship To:" : 運送方式_lb.Text = "Ship By:" : 出貨方_lb.Text = "Ship Per:" : 貿易方式_lb.Text = "Incoterm:"
                金額大寫_lb.Text = "Say Total :" : 貨櫃_lb.Text = "Container :" : 貨櫃ID_lb.Text = "Container ID :" : 貨櫃封條_lb.Text = "Container Seal :"
                總數量2_lb.Text = "Total :" : 製造_lb.Text = "Mark :" : 品牌_lb.Text = "BRAND :" : 統編_lb.Text = "VAT : "
            End If : 大寫轉換()
        End If
    End Sub
    Private Sub 客戶名稱_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 客戶名稱_cb.SelectedIndexChanged
        客戶資訊_cb.SelectedIndex = 客戶名稱_cb.SelectedIndex : 客戶資訊_tb.Text = 客戶資訊_cb.Text
    End Sub
    Private Sub 下拉清單刷新()
        SQL_銷售_客戶名稱()
        客戶名稱_cb.Items.Clear() : 客戶資訊_cb.Items.Clear() : While (dr1.Read()) : 客戶名稱_cb.Items.Add(dr1("客戶名稱")) : 客戶資訊_cb.Items.Add(dr1("客戶基本資料")) : End While
        SQL_銷售_運送到() : 運送到_cb.Items.Clear() : While (dr1.Read()) : 運送到_cb.Items.Add(dr1("運送到")) : End While
        SQL_銷售_貿易方式() : 貿易方式_cb.Items.Clear() : While (dr1.Read()) : 貿易方式_cb.Items.Add(dr1("貿易通則")) : End While
        SQL_銷售_貨櫃() : 貨櫃_cb.Items.Clear() : While (dr1.Read()) : 貨櫃_cb.Items.Add(dr1("貨櫃")) : End While
        SQL_銷售_品牌() : 品牌_tb.Items.Clear() : While (dr1.Read()) : 品牌_tb.Items.Add(dr1("品牌")) : End While
    End Sub
    Private Sub 銷售單據列印_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HT_ERP_SELLINGPI : Me.WindowState = 2 : Me.AutoScroll = True
        首次進入 = True
        開單人員_tb.Text = gUserName : 語言_cb.SelectedIndex = 0 : 送貨單號_tb.ReadOnly = True : 客戶資訊_cb.SendToBack() : 清單3_dgv.SendToBack()
        貨櫃_cb.Text = "" : 貿易方式_cb.Text = "" : 出貨備註_tb.Text = "" : 送貨單號_tb.Text = "" : 出貨日期_dtp.Value = Today() : 運送到_cb.Text = "" : 運送方式_tb.Text = ""
        棧板數_tb.Text = "0" : 品牌_tb.Text = "" : 客戶資訊_tb.Text = "" : 客戶名稱_cb.Text = "" : 貨櫃ID_tb.Text = "" : 貨櫃封條_tb.Text = ""
        If gUserName = "系統管理員" Then : 導入受訂單_bt.Visible = True : Else : 導入受訂單_bt.Visible = True : End If
        首次進入 = False
    End Sub
    Private Sub 銷售單據列印_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Set_天心銷售單() : Set_銷售單() : 下拉清單刷新()
    End Sub
    Private Sub 導入受訂單_bt_Click(sender As Object, e As EventArgs) Handles 導入受訂單_bt.Click
        With 開啟檔案
            .Title = "選擇 Excel 檔案"
            .Filter = "Excel 檔案 (*.xls;*.xlsx)|*.xls;*.xlsx"
            .FilterIndex = 1 ' 預設選項
            .RestoreDirectory = True ' 關閉後回到先前的資料夾
            .Multiselect = False ' 限制只能選擇單一檔案
        End With : Dim file_name As String
        If 開啟檔案.ShowDialog = Windows.Forms.DialogResult.OK Then
            Try
                file_name = 開啟檔案.FileName
                xlApp = CreateObject("Excel.Application")
                xlApp.DisplayAlerts = True
                xlApp.Visible = True
                xlApp.Workbooks.Open(file_name)
                xlSheet = xlApp.Worksheets(1) : xlSheet.Activate()
                Dim 檔案 As String = xlSheet.Cells(1, 2).value
                If 檔案 = "受  訂  單" Then
                    訂單號_tb.Text = Strings.Mid(xlSheet.Cells(6, 7).value, 6, 50) : 受訂日期_dtp.Value = xlSheet.Cells(2, 2).value
                    預交日期_dtp.Value = Strings.Mid(xlSheet.Cells(7, 7).value, 6, 50) : 客戶編號_tb.Text = Strings.Mid(xlSheet.Cells(6, 2).value, 6, 4)
                    客戶名稱_tb.Text = Strings.Mid(xlSheet.Cells(6, 2).value, 10, 50) : 統一編號_tb.Text = Strings.Mid(xlSheet.Cells(7, 2).value, 6, 50)
                    連絡電話_tb.Text = Strings.Mid(xlSheet.Cells(8, 2).value, 6, 50) : 送貨地址_tb.Text = Strings.Mid(xlSheet.Cells(9, 2).value, 6, 50)
                    傳真_tb.Text = Strings.Mid(xlSheet.Cells(8, 4).value, 6, 50) : 經辦業務_tb.Text = Strings.Mid(xlSheet.Cells(8, 7).value, 11, 50)
                    交易方式_tb.Text = Strings.Mid(xlSheet.Cells(42, 2).value, 6, 100) : 備註_tb.Text = Strings.Mid(xlSheet.Cells(43, 2).value, 9, 100)
                    幣別_tb.Text = xlSheet.Cells(3, 3).value : 匯率_tb.Text = xlSheet.Cells(3, 4).value
                    xlApp.Visible = False
                    If 訂單號_tb.Text <> "" Then
                        SQL_受訂控制表查詢(訂單號_tb.Text)
                        If dr1.Read Then
                            MsgBox("該檔案已經存在系統中，不需要重複導入!!") : xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing : Exit Sub
                        Else
                            SQL_受訂控制表新增(訂單號_tb.Text, Strings.Format(受訂日期_dtp.Value, "yyyy/MM/dd"), Strings.Format(預交日期_dtp.Value, "yyyy/MM/dd"), 客戶編號_tb.Text,
                                               客戶名稱_tb.Text, 統一編號_tb.Text, 連絡電話_tb.Text, 送貨地址_tb.Text, 傳真_tb.Text, 經辦業務_tb.Text, 交易方式_tb.Text, 備註_tb.Text,
                                               幣別_tb.Text, 匯率_tb.Text)
                        End If
                        Dim NUM1 As Integer : Dim 流水號 As String = ""
                        SQL_受訂明細表刪除(訂單號_tb.Text) : SQL_受訂明細表查詢()
                        If dr1.Read Then : NUM1 = Strings.Right(dr1("流水號"), 5) : Else : NUM1 = 0 : End If
                        For i As Integer = 11 To 99999
                            Dim 判斷 As String = xlSheet.Cells(i, 2).value : If 判斷 = "" Then : Exit For : End If
                            NUM1 += 1
                            If NUM1 < 10 Then : 流水號 = "SO-" & Strings.Format(Today(), "yyyyMMdd") & "-0000" & NUM1
                            ElseIf NUM1 > 9 And NUM1 < 100 Then : 流水號 = "SO-" & Strings.Format(Today(), "yyyyMMdd") & "-000" & NUM1
                            ElseIf NUM1 > 99 And NUM1 < 1000 Then : 流水號 = "SO-" & Strings.Format(Today(), "yyyyMMdd") & "-00" & NUM1
                            ElseIf NUM1 > 999 And NUM1 < 10000 Then : 流水號 = "SO-" & Strings.Format(Today(), "yyyyMMdd") & "-0" & NUM1
                            ElseIf NUM1 > 9999 Then : 流水號 = "SO-" & Strings.Format(Today(), "yyyyMMdd") & "-" & NUM1 : End If
                            SQL_受訂明細表新增(流水號, 訂單號_tb.Text, xlSheet.Cells(i, 2).value, xlSheet.Cells(i, 3).value, xlSheet.Cells(i, 4).value, xlSheet.Cells(i, 5).value,
                                               xlSheet.Cells(i, 6).value, xlSheet.Cells(i, 7).value, xlSheet.Cells(i, 8).value, xlSheet.Cells(i, 10).value, xlSheet.Cells(i, 11).value)
                        Next
                    Else : xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing : MsgBox("導入的資料有問題，請重新確認，或是通知系統管理員!!") : Exit Sub : End If
                Else : xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing : MsgBox("您選擇的檔案並不是[受訂單]，該介面目前不能導入非受訂單的檔案!!") : Exit Sub : End If
            Catch ex As Exception : MsgBox(ex.Message) : End Try
            xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing : MsgBox("資料導入完成") : Set_天心銷售單()
        End If
    End Sub
    Private Sub 刪除受訂單_bt_Click(sender As Object, e As EventArgs) Handles 刪除受訂單_bt.Click
        If CC(4) = False Then : MsgBox("您的帳號沒有刪除資料的權限!!") : Else
            If 訂單號_tb.Text <> "" Then : Dim 不可刪除 As Boolean = False
                For I As Integer = 0 To 清單1_1_dgv.Rows.Count - 1 : If 清單1_1_dgv.Rows(I).Cells("已轉").Value = True Then : 不可刪除 = True : Exit For : End If : Next
                If 不可刪除 = False Then
                    Dim result As DialogResult = MessageBox.Show("請再次確認您是否要從外掛系統中刪除受訂單 [ " & 訂單號_tb.Text & "] 的資料?", "請選擇",
                                                                 MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                    If result = DialogResult.Yes Then
                        SQL_受訂控制表刪除(訂單號_tb.Text) : SQL_受訂明細表刪除(訂單號_tb.Text) : MsgBox("資料刪除完成!!")
                        Set_天心銷售單() : 清單1_1_dgv.DataSource = Nothing
                        訂單號_tb.Text = "" : 受訂日期_dtp.Value = Today() : 預交日期_dtp.Value = Today() : 客戶編號_tb.Text = "" : 客戶名稱_tb.Text = "" : 統一編號_tb.Text = ""
                        連絡電話_tb.Text = "" : 送貨地址_tb.Text = "" : 傳真_tb.Text = "" : 經辦業務_tb.Text = "" : 交易方式_tb.Text = "" : 備註_tb.Text = ""
                    End If
                Else : MsgBox("該受訂單的資料已經有引用在 COMMERCIAL INVOICE 無法刪除!!") : End If
            Else : MsgBox("請選擇要刪除的受訂單!!") : End If
        End If
    End Sub
    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
        Set_天心銷售單() : 大寫轉換()
    End Sub
    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        貨櫃_cb.Text = "" : 貿易方式_cb.Text = "" : 出貨備註_tb.Text = "" : 送貨單號_tb.Text = "" : 出貨日期_dtp.Value = Today() : 運送到_cb.Text = "" : 運送方式_tb.Text = ""
        棧板數_tb.Text = "0" : 品牌_tb.Text = "" : 客戶資訊_tb.Text = "" : 客戶名稱_cb.Text = "" : 送貨單號_tb.ReadOnly = False : 貨櫃ID_tb.Text = "" : 貨櫃封條_tb.Text = ""
        清單2_1_dgv.DataSource = Nothing
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        If CC(5) = False Then : MsgBox("您的帳號沒有編輯資料的權限!!") : Else
            Dim 不可存檔 As Boolean = False : Dim 通知(12) As String
            If 送貨單號_tb.Text = "" Then : 通知(0) = 送貨單號_lb.Text & "，" : 不可存檔 = True : End If
            If 客戶資訊_tb.Text = "" Then : 通知(1) = 客戶資料_lb.Text & "，" : 不可存檔 = True : End If
            If 客戶名稱_cb.Text = "" Then : 通知(2) = 客戶資料_lb.Text & "(下方的夏拉清單要填入客戶名稱)，" : 不可存檔 = True : End If
            If 運送到_cb.Text = "" Then : 通知(3) = 運送到_lb.Text & "，" : 不可存檔 = True : End If
            If 運送方式_tb.Text = "" Then : 通知(4) = 運送方式_lb.Text & "，" : 不可存檔 = True : End If
            If 貿易方式_cb.Text = "" Then : 通知(5) = 貿易方式_lb.Text & "，" : 不可存檔 = True : End If
            If 貨櫃_cb.Text = "" Then : 通知(6) = 貨櫃_lb.Text & "，" : 不可存檔 = True : End If
            If 棧板數_tb.Text = "" Then : 通知(7) = PLT_lb.Text & "，" : 不可存檔 = True : End If
            If 品牌_tb.Text = "" Then : 通知(8) = 品牌_lb.Text & "，" : 不可存檔 = True : End If
            If 出貨備註_tb.Text = "" Then : 通知(9) = 出貨備註_lb.Text & "，" : 不可存檔 = True : End If
            If 出貨地點_tb.Text = "" Then : 通知(10) = 出貨地點_lb.Text & "，" : 不可存檔 = True : End If
            If 出貨方_tb.Text = "" Then : 通知(11) = 出貨方_tb.Text & "，" : 不可存檔 = True : End If
            If 製造_tb.Text = "" Then : 通知(12) = 製造_tb.Text & "，" : 不可存檔 = True : End If
            If 不可存檔 = False Then
                SQL_銷售發票控制表查詢(送貨單號_tb.Text)
                If dr1.Read Then
                    SQL_銷售發票控制表修改(送貨單號_tb.Text, 客戶資訊_tb.Text, 客戶名稱_cb.Text, Strings.Format(出貨日期_dtp.Value, "yyyy/MM/dd"), 開單人員_tb.Text, 出貨地點_tb.Text,
                                           運送到_cb.Text, 運送方式_tb.Text, 出貨方_tb.Text, 貿易方式_cb.Text, 出貨備註_tb.Text, 貨櫃_cb.Text, 貨櫃ID_tb.Text, 貨櫃封條_tb.Text,
                                           棧板數_tb.Text, 製造_tb.Text, 品牌_tb.Text)
                Else
                    SQL_銷售發票控制表新增(送貨單號_tb.Text, 客戶資訊_tb.Text, 客戶名稱_cb.Text, Strings.Format(出貨日期_dtp.Value, "yyyy/MM/dd"), 開單人員_tb.Text, 出貨地點_tb.Text,
                                           運送到_cb.Text, 運送方式_tb.Text, 出貨方_tb.Text, 貿易方式_cb.Text, 出貨備註_tb.Text, 貨櫃_cb.Text, 貨櫃ID_tb.Text, 貨櫃封條_tb.Text,
                                           棧板數_tb.Text, 製造_tb.Text, 品牌_tb.Text)
                End If
                For i As Integer = 0 To 清單2_1_dgv.Rows.Count - 1
                    SQL_銷售發票明細表修改(清單2_1_dgv.Rows(i).Cells("流水號").Value.ToString, 清單2_1_dgv.Rows(i).Cells("Description").Value.ToString)
                Next
                送貨單號_tb.ReadOnly = True : MsgBox("存檔完成!!") : Set_銷售單() : Set_銷售單明細() : 下拉清單刷新()
            Else : MsgBox(通知(0) & 通知(1) & 通知(2) & 通知(3) & 通知(4) & 通知(5) & 通知(6) & 通知(7) & 通知(8) & 通知(9) & 通知(10) & 通知(11) & 通知(12) &
                          "不可以空白，請注意資料完整性!!")
            End If
        End If
    End Sub
    Private Sub 增加明細_bt_Click(sender As Object, e As EventArgs) Handles 增加明細_bt.Click
        If 送貨單號_tb.ReadOnly = False Then : MsgBox("存檔後才能操作!!") : Else
            If CC(5) = False Then : MsgBox("您的帳號沒有編輯資料的權限!!") : Else
                If 送貨單號_tb.Text = "" Then : MsgBox("沒有選擇 COMMERCIAL INVOICE 無法轉移受訂單明細資料，請先選擇或是新建 COMMERCIAL INVOICE!!") : Else
                    Dim NUM1 As Integer : Dim 流水號 As String = "" : SQL_銷售發票明細表查詢()
                    If dr1.Read Then : NUM1 = Strings.Right(dr1("流水號"), 2) : Else : NUM1 = 0 : End If
                    For I As Integer = 0 To 清單1_1_dgv.Rows.Count - 1
                        If 清單1_1_dgv.Rows(I).Cells("選擇").Value = True Then
                            NUM1 += 1
                            If NUM1 < 10 Then : 流水號 = "SU-" & Strings.Format(Today(), "yyyyMMdd") & "-0000" & NUM1
                            ElseIf NUM1 > 9 And NUM1 < 100 Then : 流水號 = "SU-" & Strings.Format(Today(), "yyyyMMdd") & "-000" & NUM1
                            ElseIf NUM1 > 99 And NUM1 < 1000 Then : 流水號 = "SU-" & Strings.Format(Today(), "yyyyMMdd") & "00-" & NUM1
                            ElseIf NUM1 > 999 And NUM1 < 10000 Then : 流水號 = "SU-" & Strings.Format(Today(), "yyyyMMdd") & "0-" & NUM1
                            ElseIf NUM1 > 9999 Then : 流水號 = "SU-" & Strings.Format(Today(), "yyyyMMdd") & "-" & NUM1
                            End If
                            SQL_銷售發票明細表新增(流水號, 送貨單號_tb.Text, "[" & 清單1_1_dgv.Rows(I).Cells("產品編號").Value.ToString & "] " &
                                                   清單1_1_dgv.Rows(I).Cells("產品名稱").Value.ToString, "", 訂單號_tb.Text,
                                                   清單1_1_dgv.Rows(I).Cells("數量").Value.ToString, 清單1_1_dgv.Rows(I).Cells("單價").Value.ToString,
                                                   清單1_1_dgv.Rows(I).Cells("金額").Value.ToString, "0", 清單1_1_dgv.Rows(I).Cells("流水號").Value.ToString,
                                                   清單1_1_dgv.Rows(I).Cells("貨號").Value.ToString)
                            SQL_受訂明細表轉移標註(清單1_1_dgv.Rows(I).Cells("流水號").Value.ToString, "1", "已轉發票")
                        End If
                    Next : Set_銷售單明細() : Set_天心受訂明細() : Set_天心銷售單()
                End If
            End If
        End If
    End Sub
    Private Sub 刪除明細_bt_Click(sender As Object, e As EventArgs) Handles 刪除明細_bt.Click
        If 送貨單號_tb.ReadOnly = False Then : MsgBox("存檔後才能操作!!") : Else
            If CC(5) = False Then : MsgBox("您的帳號沒有編輯資料的權限!!") : Else
                If 送貨單號_tb.Text = "" Then : MsgBox("沒有選擇 COMMERCIAL INVOICE 無法轉移受訂單明細資料，請先選擇 COMMERCIAL INVOICE!!") : Else
                    For I As Integer = 0 To 清單2_1_dgv.Rows.Count - 1
                        If 清單2_1_dgv.Rows(I).Cells("選擇").Value = True Then
                            SQL_銷售發票明細表刪除(清單2_1_dgv.Rows(I).Cells("流水號").Value.ToString)
                            SQL_受訂明細表轉移標註(清單2_1_dgv.Rows(I).Cells("受定流水號").Value.ToString, "0", "已轉發票")
                        End If
                    Next : Set_銷售單明細() : Set_天心受訂明細() : Set_天心銷售單() : MsgBox("選定的資料已從 COMMERCIAL INVOICE 中撤回受訂單中!!")
                End If
            End If
        End If
    End Sub
    Private Sub 刪除發票_bt_Click(sender As Object, e As EventArgs) Handles 刪除發票_bt.Click
        If CC(4) = False Then : MsgBox("您的帳號沒有刪除資料的權限!!") : Else
            If 送貨單號_tb.Text = "" Then : MsgBox("沒有選擇 COMMERCIAL INVOICE 無法刪除!!") : Else
                Dim result As DialogResult = MessageBox.Show("請再次確認您是否要從外掛系統中刪除 COMMERCIAL INVOICE  [ " & 送貨單號_tb.Text & "] 的資料?", "請選擇",
                                                                 MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                If result = DialogResult.Yes Then
                    SQL_銷售發票控制表刪除(送貨單號_tb.Text)
                    For I As Integer = 0 To 清單2_1_dgv.Rows.Count - 1
                        SQL_銷售發票明細表刪除(清單2_1_dgv.Rows(I).Cells("流水號").Value.ToString)
                        SQL_受訂明細表轉移標註(清單2_1_dgv.Rows(I).Cells("受定流水號").Value.ToString, "0", "已轉發票")
                    Next
                    貨櫃_cb.Text = "" : 貿易方式_cb.Text = "" : 出貨備註_tb.Text = "" : 送貨單號_tb.Text = "" : 出貨日期_dtp.Value = Today() : 運送到_cb.Text = "" : 運送方式_tb.Text = ""
                    棧板數_tb.Text = "0" : 品牌_tb.Text = "" : 客戶資訊_tb.Text = "" : 客戶名稱_cb.Text = "" : 貨櫃ID_tb.Text = "" : 貨櫃封條_tb.Text = ""
                    Set_銷售單明細() : Set_天心受訂明細() : Set_天心銷售單() : Set_銷售單() : MsgBox("選定的 COMMERCIAL INVOICE 已經刪除!!")
                End If
            End If
        End If
    End Sub
    Private Sub 大寫轉換()
        Dim 個位(20), 十位(9), 百位(1), 千位(1), 百萬, 十億, 零, 拾, 百, 仟, 萬, 億, 兆, 答案 As String : Dim 數長 As Integer
        If 語言_cb.Text = "中文" Then
            個位(0) = "零" : 個位(1) = "壹" : 個位(2) = "貳" : 個位(3) = "參" : 個位(4) = "肆" : 個位(5) = "伍" : 個位(6) = "陸" : 個位(7) = "柒" : 個位(8) = "捌" : 個位(9) = "玖"
            零 = "零" : 拾 = "拾" : 百 = "百" : 仟 = "仟" : 萬 = "萬" : 億 = "億" : 兆 = "兆"
        Else
            個位(0) = "Zero" : 個位(1) = "One" : 個位(2) = "Two" : 個位(3) = "Three" : 個位(4) = "Four" : 個位(5) = "Five" : 個位(6) = "Six" : 個位(7) = "Seven"
            個位(8) = "Eight" : 個位(9) = "Nine" : 個位(10) = "Ten" : 個位(11) = "Eleven" : 個位(12) = "Twelve" : 個位(13) = "Thirteen" : 個位(14) = "Fourteen"
            個位(15) = "Fifteen" : 個位(16) = "Sixteen" : 個位(17) = "Seventeen" : 個位(18) = "Eighteen" : 個位(19) = "Nineteen" : 個位(20) = "Twenty"
            十位(1) = "Ten" : 十位(2) = "Twenty" : 十位(3) = "Thirty" : 十位(4) = "Forty" : 十位(5) = "Fifty" : 十位(6) = "Sixty" : 十位(7) = "Seventy" : 十位(8) = "Eighty"
            十位(9) = "Ninety"
            百位(0) = "One Hundred" : 百位(1) = "Hundred" : 千位(0) = "One Thousand" : 千位(1) = "Thousand" : 百萬 = "Million" : 十億 = "Billion" : 兆 = "Trillion"
        End If
        '--------------轉大寫-----------------------------------------------------------
        Dim 位數(13), 末位數 As String
        Dim NB As Long = CInt(總金額a_lb.Text) : Dim NBS As String = NB.ToString() : 數長 = NBS.Length
        位數(1) = Strings.Left(NBS, 1) : 末位數 = Strings.Right(NBS, 1)
        If 數長 >= 2 Then : 位數(2) = Strings.Mid(NBS, 2, 1) : End If : If 數長 >= 3 Then : 位數(3) = Strings.Mid(NBS, 3, 1) : End If
        If 數長 >= 4 Then : 位數(4) = Strings.Mid(NBS, 4, 1) : End If : If 數長 >= 5 Then : 位數(5) = Strings.Mid(NBS, 5, 1) : End If
        If 數長 >= 6 Then : 位數(6) = Strings.Mid(NBS, 6, 1) : End If : If 數長 >= 7 Then : 位數(7) = Strings.Mid(NBS, 7, 1) : End If
        If 數長 >= 8 Then : 位數(8) = Strings.Mid(NBS, 8, 1) : End If : If 數長 >= 9 Then : 位數(9) = Strings.Mid(NBS, 9, 1) : End If
        If 數長 >= 10 Then : 位數(10) = Strings.Mid(NBS, 10, 1) : End If : If 數長 >= 11 Then : 位數(11) = Strings.Mid(NBS, 11, 1) : End If
        If 數長 >= 12 Then : 位數(12) = Strings.Mid(NBS, 12, 1) : End If : If 數長 >= 13 Then : 位數(13) = Strings.Mid(NBS, 13, 1) : End If
        If 語言_cb.Text <> "中文" Then
            If CInt(總金額a_lb.Text) < 21 Then : 答案 = 個位(CInt(總金額a_lb.Text))
            ElseIf 數長 = 2 Then
                If 位數(2) <> "0" And 末位數 = "0" Then : 答案 = 十位(位數(1))
                ElseIf 位數(2) <> "0" And 末位數 <> "0" Then : 答案 = 十位(位數(1)) & " " & 個位(末位數) : End If
            ElseIf 數長 = 3 Then
                '------------------百------------------------------------------------------------------------------------------------------
                If 位數(1) = "1" Then : 答案 = 百位(0) : ElseIf 位數(1) <> "1" Then : 答案 = 個位(位數(1)) & " " & 百位(1) : End If
                '------------------個十------------------------------------------------------------------------------------------------------
                If 位數(2) = "0" And 末位數 = "0" Then
                ElseIf 位數(2) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)
                Else
                    If CInt(位數(2) & 末位數) < 21 Then
                        If 末位數 = "0" Then : 答案 &= " " & 十位(位數(2)) : Else : 答案 &= " " & 個位(位數(2) & 末位數) : End If
                    Else
                        If 位數(2) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(2))
                        ElseIf 位數(2) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 個位(末位數) : End If
                    End If
                End If
            ElseIf 數長 = 4 Then
                '------------------千------------------------------------------------------------------------------------------------------
                If 位數(1) = "1" Then : 答案 = 千位(0)
                ElseIf 位數(1) <> "1" Then : 答案 = 個位(位數(1)) & " " & 千位(1) : End If
                '------------------百------------------------------------------------------------------------------------------------------
                If CInt(位數(2) & 位數(3) & 末位數) < 100 Then
                ElseIf CInt(位數(2) & 位數(3) & 末位數) < 200 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(2) & 位數(3) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(2)) & " " & 百位(1) : End If
                '------------------個十------------------------------------------------------------------------------------------------------
                If 位數(3) = "0" And 末位數 = "0" Then
                ElseIf 位數(3) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)
                Else
                    If CInt(位數(3) & 末位數) < 21 Then
                        If 末位數 = "0" Then : 答案 &= " " & 十位(位數(3)) : Else : 答案 &= " " & 個位(位數(3) & 末位數) : End If
                    Else
                        If 位數(3) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(3))
                        ElseIf 位數(3) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 個位(末位數) : End If
                    End If
                End If
            ElseIf 數長 = 5 Then
                '------------------十千(萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(1) & 位數(2)) < 21 Then
                    If 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 千位(1) : Else : 答案 = 個位(位數(1) & 位數(2)) & " " & 千位(1) : End If
                Else
                    If 位數(1) <> "0" And 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 千位(1)
                    ElseIf 位數(1) <> "0" And 位數(2) <> "0" Then : 答案 = 十位(位數(1)) & " " & 個位(位數(2)) & " " & 千位(1) : End If
                End If
                '------------------百------------------------------------------------------------------------------------------------------
                If CInt(位數(3) & 位數(4) & 末位數) < 100 Then
                ElseIf CInt(位數(3) & 位數(4) & 末位數) < 200 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(3) & 位數(4) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(3)) & " " & 百位(1) : End If
                '------------------個十------------------------------------------------------------------------------------------------------
                If 位數(4) = "0" And 末位數 = "0" Then
                ElseIf 位數(4) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)
                Else
                    If CInt(位數(4) & 末位數) < 21 Then
                        If 末位數 = "0" Then : 答案 &= " " & 十位(位數(4)) : Else : 答案 &= " " & 個位(位數(4) & 末位數) : End If
                    Else
                        If 位數(4) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(4))
                        ElseIf 位數(4) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 個位(末位數) : End If
                    End If
                End If
            ElseIf 數長 = 6 Then
                '------------------百千(十萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(1)) = 1 Then : 答案 = 百位(0) : Else : 答案 = 個位(位數(1)) & " " & 百位(1) : End If
                '------------------十千(萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(2) & 位數(3)) < 21 Then
                    If 位數(3) = "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 千位(1) : Else : 答案 &= " " & 個位(位數(2) & 位數(3)) & " " & 千位(1) : End If
                Else
                    If 位數(2) <> "0" And 位數(3) = "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 千位(1)
                    ElseIf 位數(2) <> "0" And 位數(3) <> "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 個位(位數(3)) & " " & 千位(1) : End If
                End If
                '------------------百------------------------------------------------------------------------------------------------------
                If CInt(位數(4) & 位數(5) & 末位數) < 100 Then
                ElseIf CInt(位數(4) & 位數(5) & 末位數) < 200 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(4) & 位數(5) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(4)) & " " & 百位(1) : End If
                '------------------個十------------------------------------------------------------------------------------------------------
                If 位數(5) = "0" And 末位數 = "0" Then
                ElseIf 位數(5) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)
                Else
                    If CInt(位數(5) & 末位數) < 21 Then
                        If 末位數 = "0" Then : 答案 &= " " & 十位(位數(5)) : Else : 答案 &= " " & 個位(位數(5) & 末位數) : End If
                    Else
                        If 位數(5) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(5))
                        ElseIf 位數(5) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(5)) & " " & 個位(末位數) : End If
                    End If
                End If
            ElseIf 數長 = 7 Then
                '------------------百萬------------------------------------------------------------------------------------------------------
                答案 = 個位(位數(1)) & " " & 百萬
                '------------------百千(十萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(2)) = 0 Then : ElseIf CInt(位數(2)) = 1 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(2)) > 1 Then : 答案 &= " " & 個位(位數(2)) & " " & 百位(1) : End If
                '------------------十千(萬)------------------------------------------------------------------------------------------------------
                If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" Then : Else
                    If CInt(位數(3) & 位數(4)) < 21 Then
                        If 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= " " & 千位(1)
                        ElseIf 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= " " & 個位(位數(4)) & " " & 千位(1)
                        ElseIf 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 千位(1)
                        ElseIf 位數(3) <> "0" And 位數(4) <> "0" Then : 答案 &= " " & 個位(位數(3) & 位數(4)) & " " & 千位(1) : End If
                    Else
                        If 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 千位(1)
                        ElseIf 位數(3) <> "0" And 位數(4) <> "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 個位(位數(4)) & " " & 千位(1) : End If
                    End If
                End If
                '------------------百------------------------------------------------------------------------------------------------------
                If CInt(位數(5) & 位數(6) & 末位數) < 100 Then
                ElseIf CInt(位數(5) & 位數(6) & 末位數) < 200 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(5) & 位數(6) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(5)) & " " & 百位(1) : End If
                '------------------個十------------------------------------------------------------------------------------------------------
                If 位數(6) = "0" And 末位數 = "0" Then
                ElseIf 位數(6) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)
                Else
                    If CInt(位數(6) & 末位數) < 21 Then
                        If 末位數 = "0" Then : 答案 &= " " & 十位(位數(6)) : Else : 答案 &= " " & 個位(位數(6) & 末位數) : End If
                    Else
                        If 位數(6) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(6))
                        ElseIf 位數(6) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(6)) & " " & 個位(末位數) : End If
                    End If
                End If
            ElseIf 數長 = 8 Then
                '------------------十百萬(千萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(1) & 位數(2)) < 21 Then
                    If 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 百萬 : Else : 答案 = 個位(位數(1) & 位數(2)) & " " & 百萬 : End If
                Else
                    If 位數(1) <> "0" And 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 百萬
                    ElseIf 位數(1) <> "0" And 位數(2) <> "0" Then : 答案 = 十位(位數(1)) & " " & 個位(位數(2)) & " " & 百萬 : End If
                End If
                '------------------百千(十萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(3)) = 0 Then : ElseIf CInt(位數(3)) = 1 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(3)) > 1 Then : 答案 &= " " & 個位(位數(3)) & " " & 百位(1) : End If
                '------------------十千(萬)------------------------------------------------------------------------------------------------------
                If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then : Else
                    If CInt(位數(4) & 位數(5)) < 21 Then
                        If 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= " " & 千位(1)
                        ElseIf 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= " " & 個位(位數(5)) & " " & 千位(1)
                        ElseIf 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 千位(1)
                        ElseIf 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= " " & 個位(位數(4) & 位數(5)) & " " & 千位(1) : End If
                    Else
                        If 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 千位(1)
                        ElseIf 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 個位(位數(5)) & " " & 千位(1) : End If
                    End If
                End If
                '------------------百------------------------------------------------------------------------------------------------------
                If CInt(位數(6) & 位數(7) & 末位數) < 100 Then
                ElseIf CInt(位數(6) & 位數(7) & 末位數) < 200 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(6) & 位數(7) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(6)) & " " & 百位(1) : End If
                '------------------個十------------------------------------------------------------------------------------------------------
                If 位數(7) = "0" And 末位數 = "0" Then
                ElseIf 位數(7) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)
                Else
                    If CInt(位數(7) & 末位數) < 21 Then
                        If 末位數 = "0" Then : 答案 &= " " & 十位(位數(7)) : Else : 答案 &= " " & 個位(位數(7) & 末位數) : End If
                    Else
                        If 位數(7) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(7))
                        ElseIf 位數(7) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(7)) & " " & 個位(末位數) : End If
                    End If
                End If
            ElseIf 數長 = 9 Then
                '------------------百百萬(億)------------------------------------------------------------------------------------------------------
                If CInt(位數(1)) = 1 Then : 答案 = 百位(0) : ElseIf CInt(位數(1)) > 1 Then : 答案 = 個位(位數(1)) & " " & 百位(1) : End If
                '------------------十百萬(千萬)------------------------------------------------------------------------------------------------------
                If 位數(2) = "0" And 位數(3) = "0" Then : 答案 &= " " & 百萬
                ElseIf 位數(2) = "0" And 位數(3) <> "0" Then : 答案 &= " " & 個位(位數(3)) & " " & 百萬
                ElseIf CInt(位數(2) & 位數(3)) < 21 Then
                    If 位數(3) = "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 百萬 : Else : 答案 &= " " & 個位(位數(2) & 位數(3)) & " " & 百萬 : End If
                ElseIf CInt(位數(2) & 位數(3)) >= 21 Then
                    If 位數(2) <> "0" And 位數(3) = "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 百萬
                    ElseIf 位數(2) <> "0" And 位數(3) <> "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 個位(位數(3)) & " " & 百萬 : End If
                End If
                '------------------百千(十萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(4)) = 0 Then : ElseIf CInt(位數(4)) = 1 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(4)) > 1 Then : 答案 &= " " & 個位(位數(4)) & " " & 百位(1) : End If
                '------------------十千(萬)------------------------------------------------------------------------------------------------------
                If 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" Then : Else
                    If CInt(位數(5) & 位數(6)) < 21 Then
                        If 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= " " & 千位(1)
                        ElseIf 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= " " & 個位(位數(6)) & " " & 千位(1)
                        ElseIf 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= " " & 十位(位數(5)) & " " & 千位(1)
                        ElseIf 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= " " & 個位(位數(5) & 位數(6)) & " " & 千位(1) : End If
                    Else
                        If 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= " " & 十位(位數(5)) & " " & 千位(1)
                        ElseIf 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= " " & 十位(位數(5)) & " " & 個位(位數(6)) & " " & 千位(1) : End If
                    End If
                End If
                '------------------百------------------------------------------------------------------------------------------------------
                If CInt(位數(7) & 位數(8) & 末位數) < 100 Then
                ElseIf CInt(位數(7) & 位數(8) & 末位數) < 200 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(7) & 位數(8) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(7)) & " " & 百位(1) : End If
                '------------------個十------------------------------------------------------------------------------------------------------
                If 位數(8) = "0" And 末位數 = "0" Then
                ElseIf 位數(8) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)
                Else
                    If CInt(位數(8) & 末位數) < 21 Then
                        If 末位數 = "0" Then : 答案 &= " " & 十位(位數(8)) : Else : 答案 &= " " & 個位(位數(8) & 末位數) : End If
                    Else
                        If 位數(8) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(8))
                        ElseIf 位數(8) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(8)) & " " & 個位(末位數) : End If
                    End If
                End If
            ElseIf 數長 = 10 Then
                '------------------十億------------------------------------------------------------------------------------------------------
                答案 = 個位(位數(1)) & " " & 十億
                '------------------百百萬(億)------------------------------------------------------------------------------------------------------
                If CInt(位數(2)) = 0 Then
                ElseIf CInt(位數(2)) = 1 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(2)) > 1 Then : 答案 &= " " & 個位(位數(2)) & " " & 百位(1) : End If
                '------------------十百萬(千萬)------------------------------------------------------------------------------------------------------
                If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" Then
                ElseIf 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= " " & 百萬
                ElseIf 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= " " & 個位(位數(4)) & " " & 百萬
                ElseIf CInt(位數(3) & 位數(4)) < 21 Then
                    If 位數(4) = "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 百萬 : Else : 答案 &= " " & 個位(位數(3) & 位數(4)) & " " & 百萬 : End If
                ElseIf CInt(位數(3) & 位數(4)) >= 21 Then
                    If 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 百萬
                    ElseIf 位數(3) <> "0" And 位數(4) <> "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 個位(位數(4)) & " " & 百萬 : End If
                End If
                '------------------百千(十萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(5)) = 0 Then : ElseIf CInt(位數(5)) = 1 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(5)) > 1 Then : 答案 &= " " & 個位(位數(5)) & " " & 百位(1) : End If
                '------------------十千(萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(6) & 位數(7)) < 21 Then
                    If 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" Then
                    ElseIf 位數(6) = "0" And 位數(7) = "0" Then : 答案 &= " " & 千位(1)
                    ElseIf 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= " " & 個位(位數(7)) & " " & 千位(1)
                    ElseIf 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= " " & 十位(位數(6)) & " " & 千位(1)
                    ElseIf 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= " " & 個位(位數(6) & 位數(7)) & " " & 千位(1) : End If
                Else
                    If 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= " " & 十位(位數(6)) & " " & 千位(1)
                    ElseIf 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= " " & 十位(位數(6)) & " " & 個位(位數(7)) & " " & 千位(1) : End If
                End If
                '------------------百------------------------------------------------------------------------------------------------------
                If CInt(位數(8) & 位數(9) & 末位數) < 100 Then
                ElseIf CInt(位數(8) & 位數(9) & 末位數) < 200 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(8) & 位數(9) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(8)) & " " & 百位(1) : End If
                '------------------個十------------------------------------------------------------------------------------------------------
                If 位數(9) = "0" And 末位數 = "0" Then
                ElseIf 位數(9) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)
                Else
                    If CInt(位數(9) & 末位數) < 21 Then
                        If 末位數 = "0" Then : 答案 &= " " & 十位(位數(9)) : Else : 答案 &= " " & 個位(位數(9) & 末位數) : End If
                    Else
                        If 位數(9) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(9))
                        ElseIf 位數(9) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(9)) & " " & 個位(末位數) : End If
                    End If
                End If
            ElseIf 數長 = 11 Then
                '------------------十十億(百億)------------------------------------------------------------------------------------------------------
                If CInt(位數(1) & 位數(2)) < 21 Then
                    If 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 十億 : Else : 答案 = 個位(位數(1) & 位數(2)) & " " & 十億 : End If
                Else
                    If 位數(1) <> "0" And 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 十億
                    ElseIf 位數(1) <> "0" And 位數(2) <> "0" Then : 答案 = 十位(位數(1)) & " " & 個位(位數(2)) & " " & 十億 : End If
                End If
                '------------------百百萬(億)------------------------------------------------------------------------------------------------------
                If CInt(位數(3)) = 0 Then
                ElseIf CInt(位數(3)) = 1 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(3)) > 1 Then : 答案 &= " " & 個位(位數(3)) & " " & 百位(1) : End If
                '------------------十百萬(千萬)------------------------------------------------------------------------------------------------------
                If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then
                ElseIf 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= " " & 百萬
                ElseIf 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= " " & 個位(位數(5)) & " " & 百萬
                ElseIf CInt(位數(4) & 位數(5)) < 21 Then
                    If 位數(5) = "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 百萬 : Else : 答案 &= " " & 個位(位數(4) & 位數(5)) & " " & 百萬 : End If
                ElseIf CInt(位數(4) & 位數(5)) >= 21 Then
                    If 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 百萬
                    ElseIf 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 個位(位數(5)) & " " & 百萬 : End If
                End If
                '------------------百千(十萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(6)) = 0 Then : ElseIf CInt(位數(6)) = 1 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(6)) > 1 Then : 答案 &= " " & 個位(位數(6)) & " " & 百位(1) : End If
                '------------------十千(萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(7) & 位數(8)) < 21 Then
                    If 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" Then
                    ElseIf 位數(7) = "0" And 位數(8) = "0" Then : 答案 &= " " & 千位(1)
                    ElseIf 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= " " & 個位(位數(8)) & " " & 千位(1)
                    ElseIf 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= " " & 十位(位數(7)) & " " & 千位(1)
                    ElseIf 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= " " & 個位(位數(7) & 位數(8)) & " " & 千位(1) : End If
                Else
                    If 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= " " & 十位(位數(7)) & " " & 千位(1)
                    ElseIf 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= " " & 十位(位數(7)) & " " & 個位(位數(8)) & " " & 千位(1) : End If
                End If
                '------------------百------------------------------------------------------------------------------------------------------
                If CInt(位數(9) & 位數(10) & 末位數) < 100 Then
                ElseIf CInt(位數(9) & 位數(10) & 末位數) < 200 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(9) & 位數(10) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(9)) & " " & 百位(1) : End If
                '------------------個十------------------------------------------------------------------------------------------------------
                If 位數(10) = "0" And 末位數 = "0" Then
                ElseIf 位數(10) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)
                Else
                    If CInt(位數(10) & 末位數) < 21 Then
                        If 末位數 = "0" Then : 答案 &= " " & 十位(位數(10)) : Else : 答案 &= " " & 個位(位數(10) & 末位數) : End If
                    Else
                        If 位數(10) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(10))
                        ElseIf 位數(10) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(10)) & " " & 個位(末位數) : End If
                    End If
                End If
            ElseIf 數長 = 12 Then
                '------------------百(千億)------------------------------------------------------------------------------------------------------
                If 位數(1) = "1" Then : 答案 = 百位(0) : ElseIf 位數(1) <> "1" Then : 答案 = 個位(位數(1)) & " " & 百位(1) : End If
                '------------------十十億(百億)------------------------------------------------------------------------------------------------------
                If 位數(2) = "0" And 位數(3) = "0" Then : 答案 &= " " & 十億
                ElseIf CInt(位數(2) & 位數(3)) < 21 Then
                    If 位數(3) = "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 十億 : Else : 答案 &= " " & 個位(位數(2) & 位數(3)) & " " & 十億 : End If
                Else
                    If 位數(2) <> "0" And 位數(3) = "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 十億
                    ElseIf 位數(2) <> "0" And 位數(3) <> "0" Then : 答案 &= " " & 十位(位數(2)) & " " & 個位(位數(3)) & " " & 十億 : End If
                End If
                '------------------百百萬(億)------------------------------------------------------------------------------------------------------
                If CInt(位數(4)) = 0 Then
                ElseIf CInt(位數(4)) = 1 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(4)) > 1 Then : 答案 &= " " & 個位(位數(4)) & " " & 百位(1) : End If
                '------------------十百萬(千萬)------------------------------------------------------------------------------------------------------
                If 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" Then
                ElseIf 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= " " & 百萬
                ElseIf 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= " " & 個位(位數(6)) & " " & 百萬
                ElseIf CInt(位數(5) & 位數(6)) < 21 Then
                    If 位數(6) = "0" Then : 答案 &= " " & 十位(位數(5)) & " " & 百萬 : Else : 答案 &= " " & 個位(位數(5) & 位數(6)) & " " & 百萬 : End If
                ElseIf CInt(位數(5) & 位數(6)) >= 21 Then
                    If 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= " " & 十位(位數(5)) & " " & 百萬
                    ElseIf 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= " " & 十位(位數(5)) & " " & 個位(位數(6)) & " " & 百萬 : End If
                End If
                '------------------百千(十萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(7)) = 0 Then : ElseIf CInt(位數(7)) = 1 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(7)) > 1 Then : 答案 &= " " & 個位(位數(7)) & " " & 百位(1) : End If
                '------------------十千(萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(8) & 位數(9)) < 21 Then
                    If 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" Then
                    ElseIf 位數(8) = "0" And 位數(9) = "0" Then : 答案 &= " " & 千位(1)
                    ElseIf 位數(8) = "0" And 位數(9) <> "0" Then : 答案 &= " " & 個位(位數(9)) & " " & 千位(1)
                    ElseIf 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= " " & 十位(位數(8)) & " " & 千位(1)
                    ElseIf 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= " " & 個位(位數(8) & 位數(9)) & " " & 千位(1) : End If
                Else
                    If 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= " " & 十位(位數(8)) & " " & 千位(1)
                    ElseIf 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= " " & 十位(位數(8)) & " " & 個位(位數(9)) & " " & 千位(1) : End If
                End If
                '------------------百------------------------------------------------------------------------------------------------------
                If CInt(位數(10) & 位數(11) & 末位數) < 100 Then
                ElseIf CInt(位數(10) & 位數(11) & 末位數) < 200 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(10) & 位數(11) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(10)) & " " & 百位(1) : End If
                '------------------個十------------------------------------------------------------------------------------------------------
                If 位數(11) = "0" And 末位數 = "0" Then
                ElseIf 位數(11) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)
                Else
                    If CInt(位數(11) & 末位數) < 21 Then
                        If 末位數 = "0" Then : 答案 &= " " & 十位(位數(11)) : Else : 答案 &= " " & 個位(位數(11) & 末位數) : End If
                    Else
                        If 位數(11) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(11))
                        ElseIf 位數(11) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(11)) & " " & 個位(末位數) : End If
                    End If
                End If
            ElseIf 數長 = 13 Then
                '------------------兆------------------------------------------------------------------------------------------------------
                答案 = 個位(位數(1)) & " " & 兆
                '------------------百(千億)------------------------------------------------------------------------------------------------------
                If 位數(2) = "0" Then
                ElseIf 位數(2) = "1" Then : 答案 &= " " & 百位(0)
                ElseIf 位數(2) <> "1" Then : 答案 &= " " & 個位(位數(2)) & " " & 百位(1) : End If
                '------------------十十億(百億)------------------------------------------------------------------------------------------------------
                If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" Then
                ElseIf 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= " " & 十億
                ElseIf CInt(位數(3) & 位數(4)) < 21 Then
                    If 位數(4) = "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 十億 : Else : 答案 &= " " & 個位(位數(3) & 位數(4)) & " " & 十億 : End If
                Else
                    If 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 十億
                    ElseIf 位數(3) <> "0" And 位數(4) <> "0" Then : 答案 &= " " & 十位(位數(3)) & " " & 個位(位數(4)) & " " & 十億 : End If
                End If
                '------------------百百萬(億)------------------------------------------------------------------------------------------------------
                If CInt(位數(5)) = 0 Then
                ElseIf CInt(位數(5)) = 1 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(5)) > 1 Then : 答案 &= " " & 個位(位數(5)) & " " & 百位(1) : End If
                '------------------十百萬(千萬)------------------------------------------------------------------------------------------------------
                If 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" Then
                ElseIf 位數(6) = "0" And 位數(7) = "0" Then : 答案 &= " " & 百萬
                ElseIf 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= " " & 個位(位數(7)) & " " & 百萬
                ElseIf CInt(位數(6) & 位數(7)) < 21 Then
                    If 位數(7) = "0" Then : 答案 &= " " & 十位(位數(6)) & " " & 百萬 : Else : 答案 &= " " & 個位(位數(6) & 位數(7)) & " " & 百萬 : End If
                ElseIf CInt(位數(6) & 位數(7)) >= 21 Then
                    If 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= " " & 十位(位數(6)) & " " & 百萬
                    ElseIf 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= " " & 十位(位數(6)) & " " & 個位(位數(7)) & " " & 百萬 : End If
                End If
                '------------------百千(十萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(8)) = 0 Then : ElseIf CInt(位數(8)) = 1 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(8)) > 1 Then : 答案 &= " " & 個位(位數(8)) & " " & 百位(1) : End If
                '------------------十千(萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(9) & 位數(10)) < 21 Then
                    If 位數(8) = "0" And 位數(9) = "0" And 位數(10) = "0" Then
                    ElseIf 位數(9) = "0" And 位數(10) = "0" Then : 答案 &= " " & 千位(1)
                    ElseIf 位數(9) = "0" And 位數(10) <> "0" Then : 答案 &= " " & 個位(位數(10)) & " " & 千位(1)
                    ElseIf 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= " " & 十位(位數(9)) & " " & 千位(1)
                    ElseIf 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= " " & 個位(位數(9) & 位數(10)) & " " & 千位(1) : End If
                Else
                    If 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= " " & 十位(位數(9)) & " " & 千位(1)
                    ElseIf 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= " " & 十位(位數(9)) & " " & 個位(位數(10)) & " " & 千位(1) : End If
                End If
                '------------------百------------------------------------------------------------------------------------------------------
                If CInt(位數(11) & 位數(12) & 末位數) < 100 Then
                ElseIf CInt(位數(11) & 位數(12) & 末位數) < 200 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(11) & 位數(12) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(11)) & " " & 百位(1) : End If
                '------------------個十------------------------------------------------------------------------------------------------------
                If 位數(12) = "0" And 末位數 = "0" Then
                ElseIf 位數(12) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)
                Else
                    If CInt(位數(12) & 末位數) < 21 Then
                        If 末位數 = "0" Then : 答案 &= " " & 十位(位數(12)) : Else : 答案 &= " " & 個位(位數(12) & 末位數) : End If
                    Else
                        If 位數(12) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(12))
                        ElseIf 位數(12) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(12)) & " " & 個位(末位數) : End If
                    End If
                End If
            ElseIf 數長 = 14 Then
                '------------------十兆------------------------------------------------------------------------------------------------------
                If CInt(位數(1) & 位數(2)) < 21 Then
                    If 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 兆 : Else : 答案 = 個位(位數(1) & 位數(2)) & " " & 兆 : End If
                Else
                    If 位數(1) <> "0" And 位數(2) = "0" Then : 答案 = 十位(位數(1)) & " " & 兆
                    ElseIf 位數(1) <> "0" And 位數(2) <> "0" Then : 答案 = 十位(位數(1)) & " " & 個位(位數(2)) & " " & 兆 : End If
                End If
                '------------------百(千億)------------------------------------------------------------------------------------------------------
                If 位數(3) = "0" Then
                ElseIf 位數(3) = "1" Then : 答案 &= " " & 百位(0)
                ElseIf 位數(3) <> "1" Then : 答案 &= " " & 個位(位數(3)) & " " & 百位(1) : End If
                '------------------十十億(百億)------------------------------------------------------------------------------------------------------
                If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then
                ElseIf 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= " " & 十億
                ElseIf CInt(位數(4) & 位數(5)) < 21 Then
                    If 位數(5) = "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 十億 : Else : 答案 &= " " & 個位(位數(4) & 位數(5)) & " " & 十億 : End If
                Else
                    If 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 十億
                    ElseIf 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= " " & 十位(位數(4)) & " " & 個位(位數(5)) & " " & 十億 : End If
                End If
                '------------------百百萬(億)------------------------------------------------------------------------------------------------------
                If CInt(位數(6)) = 0 Then
                ElseIf CInt(位數(6)) = 1 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(6)) > 1 Then : 答案 &= " " & 個位(位數(6)) & " " & 百位(1) : End If
                '------------------十百萬(千萬)------------------------------------------------------------------------------------------------------
                If 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" Then
                ElseIf 位數(7) = "0" And 位數(8) = "0" Then : 答案 &= " " & 百萬
                ElseIf 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= " " & 個位(位數(8)) & " " & 百萬
                ElseIf CInt(位數(7) & 位數(8)) < 21 Then
                    If 位數(8) = "0" Then : 答案 &= " " & 十位(位數(7)) & " " & 百萬 : Else : 答案 &= " " & 個位(位數(7) & 位數(8)) & " " & 百萬 : End If
                ElseIf CInt(位數(7) & 位數(8)) >= 21 Then
                    If 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= " " & 十位(位數(7)) & " " & 百萬
                    ElseIf 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= " " & 十位(位數(7)) & " " & 個位(位數(8)) & " " & 百萬 : End If
                End If
                '------------------百千(十萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(9)) = 0 Then : ElseIf CInt(位數(9)) = 1 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(9)) > 1 Then : 答案 &= " " & 個位(位數(9)) & " " & 百位(1) : End If
                '------------------十千(萬)------------------------------------------------------------------------------------------------------
                If CInt(位數(10) & 位數(11)) < 21 Then
                    If 位數(9) = "0" And 位數(10) = "0" And 位數(11) = "0" Then
                    ElseIf 位數(10) = "0" And 位數(11) = "0" Then : 答案 &= " " & 千位(1)
                    ElseIf 位數(10) = "0" And 位數(11) <> "0" Then : 答案 &= " " & 個位(位數(11)) & " " & 千位(1)
                    ElseIf 位數(10) <> "0" And 位數(11) = "0" Then : 答案 &= " " & 十位(位數(10)) & " " & 千位(1)
                    ElseIf 位數(10) <> "0" And 位數(11) <> "0" Then : 答案 &= " " & 個位(位數(10) & 位數(11)) & " " & 千位(1) : End If
                Else
                    If 位數(10) <> "0" And 位數(11) = "0" Then : 答案 &= " " & 十位(位數(10)) & " " & 千位(1)
                    ElseIf 位數(10) <> "0" And 位數(11) <> "0" Then : 答案 &= " " & 十位(位數(10)) & " " & 個位(位數(11)) & " " & 千位(1) : End If
                End If
                '------------------百------------------------------------------------------------------------------------------------------
                If CInt(位數(12) & 位數(13) & 末位數) < 100 Then
                ElseIf CInt(位數(12) & 位數(13) & 末位數) < 200 Then : 答案 &= " " & 百位(0)
                ElseIf CInt(位數(12) & 位數(13) & 末位數) >= 200 Then : 答案 &= " " & 個位(位數(12)) & " " & 百位(1) : End If
                '------------------個十------------------------------------------------------------------------------------------------------
                If 位數(13) = "0" And 末位數 = "0" Then
                ElseIf 位數(13) = "0" And 末位數 <> "0" Then : 答案 &= " " & 個位(末位數)
                Else
                    If CInt(位數(13) & 末位數) < 21 Then
                        If 末位數 = "0" Then : 答案 &= " " & 十位(位數(13)) : Else : 答案 &= " " & 個位(位數(13) & 末位數) : End If
                    Else
                        If 位數(13) <> "0" And 末位數 = "0" Then : 答案 &= " " & 十位(位數(13))
                        ElseIf 位數(13) <> "0" And 末位數 <> "0" Then : 答案 &= " " & 十位(位數(13)) & " " & 個位(末位數)
                        End If
                    End If
                End If
            End If
        Else
            If 數長 = 1 Then : 答案 = 個位(CInt(總金額a_lb.Text))
            ElseIf 數長 = 2 Then
                If 末位數 = "0" Then : 答案 = 個位(位數(1)) & 拾 : Else : 答案 = 個位(位數(1)) & 拾 & 個位(末位數) : End If
            ElseIf 數長 = 3 Then : 答案 = 個位(位數(1)) & 百
                If 位數(2) = "0" And 末位數 = "0" Then
                ElseIf 位數(2) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)
                ElseIf 位數(2) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 拾
                ElseIf 位數(2) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 拾 & 個位(末位數)
                End If
            ElseIf 數長 = 4 Then : 答案 = 個位(位數(1)) & 仟
                If 位數(2) = "0" And 位數(3) = "0" And 末位數 = "0" Then
                ElseIf 位數(2) = "0" And 位數(3) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)
                ElseIf 位數(2) = "0" And 位數(3) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 個位(末位數)
                ElseIf 位數(2) = "0" And 位數(3) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾
                ElseIf 位數(2) <> "0" And 位數(3) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 百
                ElseIf 位數(2) <> "0" And 位數(3) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾
                ElseIf 位數(2) <> "0" And 末位數 <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 個位(末位數)
                End If
            ElseIf 數長 = 5 Then : 答案 = 個位(位數(1)) & 萬
                If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" And 末位數 = "0" Then
                ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)
                ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾
                ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 個位(末位數)
                ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(3)) & 百
                ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾
                ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(末位數)
                ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 仟
                ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(末位數)
                ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(4)) & 拾
                ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(4)) & 拾 & 個位(末位數)
                ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百
                ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾
                ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(末位數)
                End If
            ElseIf 數長 = 6 Then
                If 位數(2) = "0" Then : 答案 = 個位(位數(1)) & 拾 & 萬 : Else : 答案 = 個位(位數(1)) & 拾 & 個位(位數(2)) & 萬 : End If
                If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" And 末位數 = "0" Then
                ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)
                ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾
                ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 個位(末位數)
                ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(4)) & 百
                ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾
                ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(末位數)
                ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(3)) & 仟
                ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(末位數)
                ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(5)) & 拾
                ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(5)) & 拾 & 個位(末位數)
                ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百
                ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾
                ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(末位數)
                End If
            ElseIf 數長 = 7 Then : 答案 = 個位(位數(1)) & 百
                If 位數(2) = "0" And 位數(3) = "0" Then : 答案 &= 萬
                ElseIf 位數(2) = "0" And 位數(3) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 萬
                ElseIf 位數(2) <> "0" And 位數(3) = "0" Then : 答案 &= 個位(位數(2)) & 拾 & 萬
                ElseIf 位數(2) <> "0" And 位數(3) <> "0" Then : 答案 &= 個位(位數(2)) & 拾 & 個位(位數(3)) & 萬
                End If
                If 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" And 末位數 = "0" Then
                ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)
                ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(6)) & 拾
                ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 拾 & 個位(末位數)
                ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(5)) & 百
                ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾
                ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 個位(末位數)
                ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(4)) & 仟
                ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(末位數)
                ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(6)) & 拾
                ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(6)) & 拾 & 個位(末位數)
                ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百
                ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾
                ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 個位(末位數)
                End If
            ElseIf 數長 = 8 Then : 答案 = 個位(位數(1)) & 仟
                If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= 萬
                ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 萬
                ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 個位(位數(4)) & 萬
                ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 萬
                ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= 個位(位數(2)) & 百 & 萬
                ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 零 & 個位(位數(4)) & 萬
                ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 萬
                ElseIf 位數(2) <> "0" And 位數(4) <> "0" And 位數(4) <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 個位(位數(4)) & 萬
                End If
                If 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" And 末位數 = "0" Then
                ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)
                ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(7)) & 拾
                ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 拾 & 個位(末位數)
                ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(6)) & 百
                ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾
                ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 個位(末位數)
                ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(5)) & 仟
                ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(末位數)
                ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(7)) & 拾
                ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(7)) & 拾 & 個位(末位數)
                ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百
                ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾
                ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 個位(末位數)
                End If
            ElseIf 數長 = 9 Then : 答案 = 個位(位數(1)) & 億
                If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then
                ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 萬
                ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 萬
                ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 萬
                ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 萬
                ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 零 & 個位(位數(5)) & 萬
                ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 萬
                ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 萬
                ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 萬
                ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(5)) & 萬
                ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(4)) & 拾 & 萬
                ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 萬
                ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 萬
                ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 零 & 個位(位數(5)) & 萬
                ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 萬
                ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 萬
                End If
                If 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" And 末位數 = "0" Then
                ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)
                ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(8)) & 拾
                ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 拾 & 個位(末位數)
                ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(7)) & 百
                ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾
                ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 個位(末位數)
                ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(6)) & 仟
                ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(末位數)
                ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(8)) & 拾
                ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(8)) & 拾 & 個位(末位數)
                ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百
                ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾
                ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 個位(末位數)
                End If
            ElseIf 數長 = 10 Then
                If 位數(2) = "0" Then : 答案 = 個位(位數(1)) & 拾 & 億 : Else : 答案 = 個位(位數(1)) & 拾 & 個位(位數(2)) & 億 : End If
                If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" Then
                ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 萬
                ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 萬
                ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 萬
                ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 萬
                ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 零 & 個位(位數(6)) & 萬
                ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 萬
                ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 萬
                ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 萬
                ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(6)) & 萬
                ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(5)) & 拾 & 萬
                ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 萬
                ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 萬
                ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 零 & 個位(位數(6)) & 萬
                ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 萬
                ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 萬
                End If
                If 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" And 末位數 = "0" Then
                ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)
                ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(9)) & 拾
                ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 拾 & 個位(末位數)
                ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(8)) & 百
                ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾
                ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 個位(末位數)
                ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(7)) & 仟
                ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(末位數)
                ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(9)) & 拾
                ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(9)) & 拾 & 個位(末位數)
                ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百
                ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾
                ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 個位(末位數)
                End If
            ElseIf 數長 = 11 Then : 答案 = 個位(位數(1)) & 百
                If 位數(2) = "0" And 位數(3) = "0" Then : 答案 &= 億
                ElseIf 位數(2) = "0" And 位數(3) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 億
                ElseIf 位數(2) <> "0" And 位數(3) = "0" Then : 答案 &= 個位(位數(2)) & 拾 & 億
                ElseIf 位數(2) <> "0" And 位數(3) <> "0" Then : 答案 &= 個位(位數(2)) & 拾 & 個位(位數(3)) & 億
                End If
                If 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" Then
                ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 萬
                ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= 零 & 個位(位數(6)) & 拾 & 萬
                ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 拾 & 個位(位數(7)) & 萬
                ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 萬
                ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 零 & 個位(位數(7)) & 萬
                ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 萬
                ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 個位(位數(7)) & 萬
                ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 萬
                ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(7)) & 萬
                ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(6)) & 拾 & 萬
                ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(6)) & 拾 & 個位(位數(7)) & 萬
                ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 萬
                ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 零 & 個位(位數(7)) & 萬
                ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 萬
                ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 個位(位數(7)) & 萬
                End If
                If 位數(8) = "0" And 位數(9) = "0" And 位數(10) = "0" And 末位數 = "0" Then
                ElseIf 位數(8) = "0" And 位數(9) = "0" And 位數(10) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)
                ElseIf 位數(8) = "0" And 位數(9) = "0" And 位數(10) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(10)) & 拾
                ElseIf 位數(8) = "0" And 位數(9) = "0" And 位數(10) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(10)) & 拾 & 個位(末位數)
                ElseIf 位數(8) = "0" And 位數(9) <> "0" And 位數(10) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(9)) & 百
                ElseIf 位數(8) = "0" And 位數(9) <> "0" And 位數(10) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(8) = "0" And 位數(9) <> "0" And 位數(10) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(9)) & 百 & 個位(位數(10)) & 拾
                ElseIf 位數(8) = "0" And 位數(9) <> "0" And 位數(10) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 百 & 個位(位數(10)) & 拾 & 個位(末位數)
                ElseIf 位數(8) <> "0" And 位數(9) = "0" And 位數(10) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(8)) & 仟
                ElseIf 位數(8) <> "0" And 位數(9) = "0" And 位數(10) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(8)) & 仟 & 零 & 個位(末位數)
                ElseIf 位數(8) <> "0" And 位數(9) = "0" And 位數(10) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(8)) & 仟 & 零 & 個位(位數(10)) & 拾
                ElseIf 位數(8) <> "0" And 位數(9) = "0" And 位數(10) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(8)) & 仟 & 零 & 個位(位數(10)) & 拾 & 個位(末位數)
                ElseIf 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(8)) & 仟 & 個位(位數(9)) & 百
                ElseIf 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(8)) & 仟 & 個位(位數(9)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(8)) & 仟 & 個位(位數(9)) & 百 & 個位(位數(10)) & 拾
                ElseIf 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(8)) & 仟 & 個位(位數(9)) & 百 & 個位(位數(10)) & 拾 & 個位(末位數)
                End If
            ElseIf 數長 = 12 Then : 答案 = 個位(位數(1)) & 仟
                If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= 億
                ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 億
                ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 個位(位數(4)) & 億
                ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 億
                ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= 個位(位數(2)) & 百 & 億
                ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 零 & 個位(位數(4)) & 億
                ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 億
                ElseIf 位數(2) <> "0" And 位數(4) <> "0" And 位數(4) <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 個位(位數(4)) & 億
                End If
                If 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" Then
                ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 萬
                ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= 零 & 個位(位數(7)) & 拾 & 萬
                ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 拾 & 個位(位數(8)) & 萬
                ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 萬
                ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 零 & 個位(位數(8)) & 萬
                ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 萬
                ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 個位(位數(8)) & 萬
                ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 萬
                ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(8)) & 萬
                ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(7)) & 拾 & 萬
                ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(7)) & 拾 & 個位(位數(8)) & 萬
                ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 萬
                ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 零 & 個位(位數(8)) & 萬
                ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 萬
                ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 個位(位數(8)) & 萬
                End If
                If 位數(9) = "0" And 位數(10) = "0" And 位數(11) = "0" And 末位數 = "0" Then
                ElseIf 位數(9) = "0" And 位數(10) = "0" And 位數(11) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)
                ElseIf 位數(9) = "0" And 位數(10) = "0" And 位數(11) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(11)) & 拾
                ElseIf 位數(9) = "0" And 位數(10) = "0" And 位數(11) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(11)) & 拾 & 個位(末位數)
                ElseIf 位數(9) = "0" And 位數(10) <> "0" And 位數(11) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(10)) & 百
                ElseIf 位數(9) = "0" And 位數(10) <> "0" And 位數(11) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(10)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(9) = "0" And 位數(10) <> "0" And 位數(11) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(10)) & 百 & 個位(位數(11)) & 拾
                ElseIf 位數(9) = "0" And 位數(10) <> "0" And 位數(11) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(10)) & 百 & 個位(位數(11)) & 拾 & 個位(末位數)
                ElseIf 位數(9) <> "0" And 位數(10) = "0" And 位數(11) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(9)) & 仟
                ElseIf 位數(9) <> "0" And 位數(10) = "0" And 位數(11) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(9)) & 仟 & 零 & 個位(末位數)
                ElseIf 位數(9) <> "0" And 位數(10) = "0" And 位數(11) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(9)) & 仟 & 零 & 個位(位數(11)) & 拾
                ElseIf 位數(9) <> "0" And 位數(10) = "0" And 位數(11) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(9)) & 仟 & 零 & 個位(位數(11)) & 拾 & 個位(末位數)
                ElseIf 位數(9) <> "0" And 位數(10) <> "0" And 位數(11) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(9)) & 仟 & 個位(位數(10)) & 百
                ElseIf 位數(9) <> "0" And 位數(10) <> "0" And 位數(11) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(9)) & 仟 & 個位(位數(10)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(9) <> "0" And 位數(10) <> "0" And 位數(11) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(9)) & 仟 & 個位(位數(10)) & 百 & 個位(位數(11)) & 拾
                ElseIf 位數(9) <> "0" And 位數(10) <> "0" And 位數(11) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(9)) & 仟 & 個位(位數(10)) & 百 & 個位(位數(11)) & 拾 & 個位(末位數)
                End If
            ElseIf 數長 = 13 Then : 答案 = 個位(位數(1)) & 兆 : 答案 &= 個位(位數(2)) & 仟
                If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 億
                ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 億
                ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 億
                ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 億
                ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(3)) & 百 & 億
                ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(3)) & 百 & 零 & 個位(位數(5)) & 億
                ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 億
                ElseIf 位數(3) <> "0" And 位數(5) <> "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 億
                End If
                If 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" Then
                ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 萬
                ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= 零 & 個位(位數(8)) & 拾 & 萬
                ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 拾 & 個位(位數(9)) & 萬
                ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 萬
                ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 零 & 個位(位數(9)) & 萬
                ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 萬
                ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 個位(位數(9)) & 萬
                ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 萬
                ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(9)) & 萬
                ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(8)) & 拾 & 萬
                ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(8)) & 拾 & 個位(位數(9)) & 萬
                ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 萬
                ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 零 & 個位(位數(9)) & 萬
                ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 萬
                ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 個位(位數(9)) & 萬
                End If
                If 位數(10) = "0" And 位數(11) = "0" And 位數(12) = "0" And 末位數 = "0" Then
                ElseIf 位數(10) = "0" And 位數(11) = "0" And 位數(12) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)
                ElseIf 位數(10) = "0" And 位數(11) = "0" And 位數(12) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(12)) & 拾
                ElseIf 位數(10) = "0" And 位數(11) = "0" And 位數(12) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(12)) & 拾 & 個位(末位數)
                ElseIf 位數(10) = "0" And 位數(11) <> "0" And 位數(12) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(11)) & 百
                ElseIf 位數(10) = "0" And 位數(11) <> "0" And 位數(12) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(11)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(10) = "0" And 位數(11) <> "0" And 位數(12) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(11)) & 百 & 個位(位數(12)) & 拾
                ElseIf 位數(10) = "0" And 位數(11) <> "0" And 位數(12) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(11)) & 百 & 個位(位數(12)) & 拾 & 個位(末位數)
                ElseIf 位數(10) <> "0" And 位數(11) = "0" And 位數(12) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(10)) & 仟
                ElseIf 位數(10) <> "0" And 位數(11) = "0" And 位數(12) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(10)) & 仟 & 零 & 個位(末位數)
                ElseIf 位數(10) <> "0" And 位數(11) = "0" And 位數(12) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(10)) & 仟 & 零 & 個位(位數(12)) & 拾
                ElseIf 位數(10) <> "0" And 位數(11) = "0" And 位數(12) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(10)) & 仟 & 零 & 個位(位數(12)) & 拾 & 個位(末位數)
                ElseIf 位數(10) <> "0" And 位數(11) <> "0" And 位數(12) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(10)) & 仟 & 個位(位數(11)) & 百
                ElseIf 位數(10) <> "0" And 位數(11) <> "0" And 位數(12) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(10)) & 仟 & 個位(位數(11)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(10) <> "0" And 位數(11) <> "0" And 位數(12) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(10)) & 仟 & 個位(位數(11)) & 百 & 個位(位數(12)) & 拾
                ElseIf 位數(10) <> "0" And 位數(11) <> "0" And 位數(12) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(10)) & 仟 & 個位(位數(11)) & 百 & 個位(位數(12)) & 拾 & 個位(末位數)
                End If
            ElseIf 數長 = 14 Then
                If 位數(2) = "0" Then : 答案 = 個位(位數(1)) & 拾 & 兆 : Else : 答案 = 個位(位數(1)) & 拾 & 個位(位數(2)) & 兆 : End If : 答案 &= 個位(位數(3)) & 仟
                If 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 億
                ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 億
                ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 億
                ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 億
                ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(4)) & 百 & 億
                ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(4)) & 百 & 零 & 個位(位數(6)) & 億
                ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 億
                ElseIf 位數(4) <> "0" And 位數(6) <> "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 億
                End If
                If 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" And 位數(10) = "0" Then
                ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" And 位數(10) <> "0" Then : 答案 &= 零 & 個位(位數(10)) & 萬
                ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= 零 & 個位(位數(9)) & 拾 & 萬
                ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 拾 & 個位(位數(10)) & 萬
                ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" And 位數(10) = "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 萬
                ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" And 位數(10) <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 零 & 個位(位數(10)) & 萬
                ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 萬
                ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 個位(位數(10)) & 萬
                ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" And 位數(10) = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 萬
                ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" And 位數(10) <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(10)) & 萬
                ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(9)) & 拾 & 萬
                ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(9)) & 拾 & 個位(位數(10)) & 萬
                ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" And 位數(10) = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 萬
                ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" And 位數(10) <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 零 & 個位(位數(10)) & 萬
                ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 萬
                ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 個位(位數(10)) & 萬
                End If
                If 位數(11) = "0" And 位數(12) = "0" And 位數(13) = "0" And 末位數 = "0" Then
                ElseIf 位數(11) = "0" And 位數(12) = "0" And 位數(13) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)
                ElseIf 位數(11) = "0" And 位數(12) = "0" And 位數(13) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(13)) & 拾
                ElseIf 位數(11) = "0" And 位數(12) = "0" And 位數(13) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(13)) & 拾 & 個位(末位數)
                ElseIf 位數(11) = "0" And 位數(12) <> "0" And 位數(13) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(12)) & 百
                ElseIf 位數(11) = "0" And 位數(12) <> "0" And 位數(13) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(12)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(11) = "0" And 位數(12) <> "0" And 位數(13) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(12)) & 百 & 個位(位數(13)) & 拾
                ElseIf 位數(11) = "0" And 位數(12) <> "0" And 位數(13) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(12)) & 百 & 個位(位數(13)) & 拾 & 個位(末位數)
                ElseIf 位數(11) <> "0" And 位數(12) = "0" And 位數(13) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(11)) & 仟
                ElseIf 位數(11) <> "0" And 位數(12) = "0" And 位數(13) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(11)) & 仟 & 零 & 個位(末位數)
                ElseIf 位數(11) <> "0" And 位數(12) = "0" And 位數(13) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(11)) & 仟 & 零 & 個位(位數(13)) & 拾
                ElseIf 位數(11) <> "0" And 位數(12) = "0" And 位數(13) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(11)) & 仟 & 零 & 個位(位數(13)) & 拾 & 個位(末位數)
                ElseIf 位數(11) <> "0" And 位數(12) <> "0" And 位數(13) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(11)) & 仟 & 個位(位數(12)) & 百
                ElseIf 位數(11) <> "0" And 位數(12) <> "0" And 位數(13) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(11)) & 仟 & 個位(位數(12)) & 百 & 零 & 個位(末位數)
                ElseIf 位數(11) <> "0" And 位數(12) <> "0" And 位數(13) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(11)) & 仟 & 個位(位數(12)) & 百 & 個位(位數(13)) & 拾
                ElseIf 位數(11) <> "0" And 位數(12) <> "0" And 位數(13) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(11)) & 仟 & 個位(位數(12)) & 百 & 個位(位數(13)) & 拾 & 個位(末位數)
                End If
            End If
        End If
        If 語言_cb.Text = "中文" Then : 金額大寫a_lb.Text = 答案 & " 元整" : Else : 金額大寫a_lb.Text = 答案 & " Rupee" : End If
    End Sub
    Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click

    End Sub
End Class