Public Class Versuch
        Public Sub New()
            _Fehlermenge = 0
        End Sub
        Private Shared _Fehlermenge As Integer
        Private Shared _FehlerÜbergeben() As String
        Public Class FillInfo
 
            Public Shared ReadOnly Property FehlerMenge() As Integer
                Get
                    Return _Fehlermenge
                End Get
            End Property
 
            Public Shared ReadOnly Property FehlerÜbergeben() As String()
                Get
                    Return _FehlerÜbergeben
                End Get
            End Property
        End Class
End Class

Dim Versuch As New Versuch
MsgBox(Versuch.FillInfo.FehlerInfo)

Zitat:

Access of shared member, constant member, enum member or nested type through an instance; qualifying expression will not be evaluated.