RS232 Steuerung klappt nicht. Problem an einer Stelle

[Snecx]

So. Ich habe den Code ein wenig aufgeräumt. Die Sub für die UART ein wenig geändert. Ein einfach anhängen eines : Zeichen brachte leider nicht den Erfolg.
Ich habe es aber denoch hinbekommen. Beim Eintritt in die Sub weise ich einer Variabel (String*1) sofort udr zu.
Innerhalb der Sub verwende ich nur noch dann die Variabel für die Bedingungen. Meine Vermutung ist das irgendwo im Programm die Typen durcheinanderkommen und deshalb immer nur die erste Bedingung in der Select Case genommen wird.
Kleines Problem ist jetzt aber dabeigekommen. Sende ich nur die Befehle z.B. WB1G <-- zum lesen der Uhrzeit. Dann reagiert das Programm nicht.
Ebenso wenn ich zum schreiben der Uhrzeit den Befehl sende.
Sende ich aber vor dem eigentlichen Befehl noch 1 oder 2 "Initialzeichen" dann reagiert alles ohne Probleme z.B. **WB1G
als wenn am Start etwas verschluckt wird.
Hat da jemand eine Idee?
Hier jetzt mein Code:

$regfile = "m8535.dat"
''$regfile = "m16def.dat"
$crystal = 8000000                                          ' used crystal frequency
$baud = 9600                                                ' use baud rate
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40

Config Graphlcd = 240 * 128 , Dataport = Porta , Controlport = Portc , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 6 , Mode = 6
Config 1wire = Portd.3                                      '' 1 Wire Port
Config Pinc.7 = Output                                      '' LCD Invert
Config Pind.4 = Output
Config Scl = Portd.5
Config Sda = Portd.6
Config Portb = Output


On Urxc Onrxd                                               'Interrupt-Routine setzen
Enable Urxc                                                 'Interrupt URXC einschalten
Enable Interrupts                                           'Interrupts global zulassen                                 '' LCD Backlight

Dim Temp As String * 11
Dim T As Byte
Dim Rs232in As String * 1

Dim I As Byte

Dim RS232 As Byte
Dim Mystring As String * 11
Dim Mybytes(12) As Byte At Mystring Overlay
Dim Ds1307w As Byte
Dim Ds1307r As Byte
Dim _day As Byte
Dim _month As Byte
Dim _year As Byte
Dim _sec As Byte
Dim _min As Byte
Dim _hour As Byte
Dim _weekday As Byte
Dim Modus As Byte
Dim Test As Byte

Portb = &B11111111
Portc.7 = 0                                                 '' LCD Invert ON
Portd.4 = 1                                                 '' LCD Backlight ON
Ds1307w = &B11010000
Ds1307r = &B11010001

Modus = 0
Test = 0
I = 1

Cls

Do
   Select Case Modus
   Case 1:                                                  '' Set Date and Time
      Print "Hour:"
      Print _hour
      Print "Minute:"
      Print _min
      Print "Sec:"
      Print _sec
      Print "Day:"
      Print _day
      Print "Month:"
      Print _month
      Print "Year:"
      Print _year
      Print "Weekday:"
      Print _weekday
    If Test = 1 Then
      _sec = Makebcd(_sec)
      _min = Makebcd(_min)
      _hour = Makebcd(_hour)
      I2cstart
      I2cwbyte Ds1307w
      I2cwbyte 0
      I2cwbyte _sec
      I2cwbyte _min
      I2cwbyte _hour
      I2cstop
      _day = Makebcd(_day)
      _month = Makebcd(_month)
      _year = Makebcd(_year)
      I2cstart
      I2cwbyte Ds1307w
      I2cwbyte 3
      I2cwbyte _weekday
      I2cwbyte _day
      I2cwbyte _month
      I2cwbyte _year
      I2cstop
    End If
      Modus = 0
   Case 2:                                                  '' Get Date and Time
    If Test = 1 Then
      I2cstart
      I2cwbyte Ds1307w
      I2cwbyte 0
      I2cstop
      I2cstart
      I2cwbyte Ds1307r
      I2crbyte _sec , Ack
      I2crbyte _min , Ack
      I2crbyte _hour , Ack
      I2crbyte _weekday , Ack
      I2crbyte _day , Ack
      I2crbyte _month , Ack
      I2crbyte _year , Nack
      I2cstop
    End If
      Print "20332011076"
      _day = Makedec(_day)
      _month = Makedec(_month)
      _year = Makedec(_year)
      _sec = Makedec(_sec)
      _min = Makedec(_min)
      _hour = Makedec(_hour)
      Print "Hour:"
      Print _hour
      Print "Minute:"
      Print _min
      Print "Sec:"
      Print _sec
      Print "Day:"
      Print _day
      Print "Month:"
      Print _month
      Print "Year:"
      Print _year
      Print "Weekday:"
      Print _weekday
      Modus = 0
   End Select


Portb = &B00000000
Wait 1
Portb = &B11111111
Wait 1

Loop
End


'UART interrupt routine
Onrxd:
Rs232in = Chr(udr)

Select Case I
Case 1:
    If Rs232in = "W"then
    I = 2
    Else
    I = 1
    End If
Case 2:
    If Rs232in = "B" Then
    I = 3
    Else
    I = 1
    End If
Case 3:
    If Rs232in = "1" Then
    I = 4
    Else
    I = 1
    End If
Case 4:
      Select Case Rs232in
      Case "G":
      Modus = 2
      Case "S":
      I = 5
      Case Else
      I = 1
      End Select
Case 5:
      Incr RS232
      Mybytes(rs232) = Rs232in
         If RS232 = 11 Then

         RS232 = 0
         I = 1
         Modus = 1

         Temp = Mid(mystring , 1 , 2)
         T = Val(temp)
         _hour = T

         Temp = Mid(mystring , 3 , 2)
         T = Val(temp)
         _min = T
         _sec = 00

         Temp = Mid(mystring , 5 , 2)
         T = Val(temp)
         _day = T

         Temp = Mid(mystring , 7 , 2)
         T = Val(temp)
         _month = T

         Temp = Mid(mystring , 9 , 2)
         T = Val(temp)
         _year = T

         Temp = Mid(mystring , 11 , 1)
         T = Val(temp)
         _weekday = T
         End If
Case Else
I = 1
End Select

Return