vb.net - VB.NET のコンボボックスへのフォルダ名

Question

ディレクトリ内のすべてのディレクトリ名をチェックして、コンボボックスを実行時に入力したかったのです。

これが私のコードです:

    Private Sub EDITFORM_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call CLEAR()
    End Sub

Private Sub CLEAR()
        qtytb.Enabled = False
        parttb.Clear()
        qtytb.Clear()
        DTCB.Items.Clear()
        MTHCB.SelectedIndex = ""
        YRCB.SelectedIndex = ""
        RadioButton2.Checked = True
        RadioButton1.Checked = True
        TextBox1.Clear()
        TextBox2.Clear()
   >>     Dim di As New DirectoryInfo("D:\DATABASE\" & Pick_Item.deptlbl.Text)
       If di.Exists = True Then
            For Each subDirectory As DirectoryInfo In di.GetDirectories()
                YRCB.Items.Add(CInt(subDirectory.Name.ToString))
            Next
        End If<<

    End Sub

これは、コンボボックスとロードフォームの完全なコードですが、デバッグすると、エラーのあるメッセージボックスが表示されるだけなので、コードのどこにエラーがあるのか​​ わかりません

"Conversion from "" string to integer is not valid"

このようなもの。では、コンボボックスにフォルダ名を追加するにはどうすればよいですか? 正確に私のディレクトリ名は整数を使用しています(年ごとに名前を付けます)。名前でディレクトリを追加すると(整数ではない)、それが可能です。どんな助けでもいただければ幸いです