Class Basis
 
    Public Funktionen As Fkt
    Private _Uart As Serialport
 
    Sub New(ByVal Port As Serialport)
        _Uart = Port
        Funktionen = New Fkt(Port)
    End Sub
 
    'weitere Subs
 
End Class
 
Class Fkt
 
    Private FktPort As SerialPort
 
    Sub New(ByVal Port As SerialPort)
        FktPort = Port
    End Sub
 
    Public Function Test() As String
        Return "Test"
    End Function
 
    'weitere Funktionen
 
End Class

Ahnungsloser ahnungsloser...