Private Delegate Sub DelegateSub()
    Private Verarbeitung As New DelegateSub(AddressOf Wertübergabe)
    Private i As Integer = 0
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
        If i Mod 2 = 0 Then
            Blinker.FillColor = Color.LightGreen
        Else
            Blinker.FillColor = Color.Red
        End If
 
        AufnahmeUTI()  'Aufruf für ersten Befehl (Problemlos)
        AufnahmeO2()   'Aufruf für zweiten Befehl (Timeout:()
 
        i += 1
    End Sub
 
    Private Sub AufnahmeUTI() 'Erster Befehl
 
        If SerPortZ1.IsOpen = True Then
            Try
                SerPortZ1.Write(CGlobal.ComBefehle.ReadAll)
                Dateneingang(SerPortZ1)
            Catch ex As Exception
                MessageBox.Show("Übertragungsfehler Zelle 1", "Fehler")
            End Try
        End If
 
        If SerPortZ2.IsOpen = True Then
            Try
                SerPortZ2.Write(CGlobal.ComBefehle.ReadAll)     'U,T,I
                Dateneingang(SerPortZ2)
            Catch ex As Exception
                MessageBox.Show("Übertragungsfehler Zelle 2", "Fehler")
            End Try
        End If
 
    End Sub
 
    Private Sub AufnahmeO2() 'Zweiter Befehl
 
        If SerPortZ1.IsOpen = True Then
            Try
                SerPortZ1.Write(CGlobal.ComBefehle.ReadMessW1)
                Dateneingang(SerPortZ1)
            Catch ex As Exception
                MessageBox.Show("Übertragungsfehler")
            End Try
        End If
 
        If SerPortZ2.IsOpen = True Then
            Try
                SerPortZ2.Write(CGlobal.ComBefehle.ReadMessW1)  'O2
                Dateneingang(SerPortZ2)
            Catch ex As Exception
                MessageBox.Show("Übertragungsfehler")
            End Try
        End If
 
    End Sub
 
    Private Sub Dateneingang(ByVal Port As SerialPort) 'Empfangene Daten in 
    ' Globale Variable schreiben
 
        If Port.PortName = SerPortZ1.PortName Then
 
            Try
                CGlobal.EmpfangenZ1 = SerPortZ1.ReadTo(vbCr)
                Me.Invoke(Verarbeitung)          'Delegate hier wichtig da 
                ' Serport nicht direkt in Textbox schreiben kann!
            Catch ex As System.TimeoutException
                MessageBox.Show("Timeout Zelle 1!")
            End Try
        Else
            Try
                CGlobal.EmpfangenZ2 = SerPortZ2.ReadTo(vbCr)
                Me.Invoke(Verarbeitung)          'Delegate hier wichtig da 
                ' Serport nicht direkt in Textbox schreiben kann!
            Catch ex As System.TimeoutException
                MessageBox.Show("Timeout Zelle 2!")
            End Try
        End If
    End Sub

Ahnungsloser ahnungsloser...