Juhu, die Kommunikation läuft:
Der Master fragt etwas und bekommt vom Slave eine Antwort.

Wie kann man den "Empfangscode" noch etwas optimieren?

Code:
'auf Empfang reagieren:
If E_flag = 4 Then                                          'Empfangsstring komplett
  If Slave = "S1" Then                                      'wenn Daten für Slave1

       Select Case Parameter

               Case "Strom" : Print "#S1,Strom:" ; Strom  'Messwert für Strom senden
                              Locate 1 , 1
                              Lcd "S..." ; Slave ; "," ; Parameter ; ":" ; Strom

               Case "Volt" : Print "#S1,Volt:" ; Volt
                             Locate 1 , 1
                             Lcd "S..." ; Slave ; "," ; Parameter ; ":" ; Volt

               Case Else : Print "Err."

       End Select


  End If

  Slave = ""                                                'Slave löschen
  Parameter = ""                                            'Parameter löschen
  Wert = ""                                                 'Wert löschen
  E_flag = 0                                                'Empfang neu setzen
End If