also ich bin mir nicht ganz sicher, aber du machst zuerst:

Code:
Select Case Tag 
Case 1 
Wochentag = "Montag" 
Case 2 
Wochentag = "Dienstag" 
Case 3 
Wochentag = "Mittwoch" 
Case 4 
Wochentag = "Donnerstag" 
Case 5 
Wochentag = "Freitag" 
Case 6 
Wochentag = "Samstag" 
Case 7 
Wochentag = "Sonntag" 
Case 8 
Wochentag = "Montag" 
End Select
und dann erst fragste die taster ab.
Code:
 Taste = Tastenabfrage() 
   If Taste <> 0 Then 

      Select Case Taste 
         Case 1 
             Tag = Tag + 1 
             Waitms 200 
             Print Wochentag 
         Case 5 
            Exit Do 
      End Select
So drückst du im prinzip einmal zu viel drauf. Vielleicht solltest du zuerst die Taster abfragen und dann schreiben, welcher Tag das is.
Gruß Hunni