Option Explicit
Dim bKeyPressed As Boolean
 
Private Sub Form_KeyPress(KeyAscii As Integer)
  If Not bKeyPressed Then
    bKeyPressed = True
  End If
End Sub

<font color=green>' Text anzeigen</font>
Label1.Caption "Test"
 
<font color=green>' Warten, bis Taste gedrückt wurde</font>
bKeyPressed = False
While Not bKeyPressed
  DoEvents
Wend