Public Class MessGerät
    Public Enum Führungsgröße
        Aus
        Zellspannung
        Elektrolysestrom
        Sauerstoffkonzentration
    End Enum
 
    Private _Uart As SerialPort
    Private _Fuehrung As Integer
 
    ''' <summary>
    ''' Gibt die Com-Schnittstelle der Messzelle über die kommuniziert wird 
    ' zurück
    ''' </summary>
    ''' <value></value>
    ''' <returns>Schnittstelle als Seriellen Port</returns>
    ''' <remarks></remarks>
    Public Property MYPort As SerialPort
        Get
            Return _Uart
        End Get
        Set(ByVal value As SerialPort)
            _Uart = value
        End Set
    End Property
 
    Public Sub New(ByVal Schnittstelle As SerialPort)
        _Uart = Schnittstelle
 
    End Sub
 
 Public Structure Messwerterfassung
 
        Public Function SetzeFührung(ByVal Führung as Führungsgröße) As integer
            With MYPort
                Try
                    .Write("Befehl1" & vbCr)
                    Dim Antwort As String = .ReadTo(ChrW(13))
                    If Antwort.Contains("!") Then
                        Antwort = Antwort.Remove(0, 3)
                        _Führung = Cint(Antwort)
                        Return cint(Antwort)
                    Else
                        Return -9999
                    End If
                Catch ex As TimeoutException
                    Throw New ApplicationException(ex.Message, _
                      ex.InnerException)
                Catch ex As Exception
                    Throw New ApplicationException(ex.Message, _
                      ex.InnerException)
                End Try
            End With
        End Function
 
'Funktion 2, 3 usw
 
        End structure
 
Public Structure Parameter
'Funktion 1, 2 usw
End Structure
 
End Class

Ahnungsloser ahnungsloser...