Optional なんかしっくりこない。

ちょっと書いてみてびっくり。

Public Class Hoge
    Public Sub New( _

    Optional ByVal a As String = "", _

    Optional ByVal b As String = "", _

    Optional ByVal c As String = "", _

    Optional ByVal d As String = "", _

    Optional ByVal e As String = "")
    End Sub
End Class


Public Class Program
    Public Shared Sub Main()
        Dim h1 As New Hoge()

        Dim h2 As New Hoge(, )

        Dim h3 As New Hoge(, , )

        Dim h4 As New Hoge(, , , )

        Dim h5 As New Hoge(, , , , )
    End Sub
End Class

なんかなじめないYO!