Private Sub GoToTest()
        Test(wert2:="hallo")
    End Sub
 
    Private Sub Test(Optional wert1 As String = "", Optional wert2 As String = _
      "", Optional wert3 As String = "")
        For Each o As ? In ?
            Dim n As String = o.name
            Dim w As String = o.value
        Next
    End Sub