Private Sub Command_Click()
    If strAntwort <> "P" Then
        text1.text="P" 'P-Feld
        text1.forecolor = &HC000& ' Grün
    Else
        text1.text = "N" 'N-Feld
        text1.forecolor =  &HFF&      ' Rot
    End If
End Sub