Ich danke dir vielmals hab es mit deinen Hinweisen Lösen können für alle die es noch interessiert:
Code:
If InStr(text, "kty1:") = 1 Then
            lblkty1.Text = [text]
        ElseIf InStr(text, "kty2:") = 1 Then
            lblkty2.Text = [text]
        End If
wobei "text" die Variable ist, die von der Seriellen schnitstelle beschrieben wird.
Gruß Bastian07