If cmdanzahl.Text = "25" Then 'Und hier verliert lblanzahl die transparenz
MsgBox "Hier erscheint der Text." & vbCrLf & "Und noch ein bisschen!", _
  vbInformation, "Fehler!"
Else
If cmdanzahl.Text >= 25 Then
lblanzahl.Caption = "25" 'hier geht auch kurz die transparenz verloren
MsgBox "Hier erscheint der Text." & vbCrLf & "Und noch ein bisschen!", _
  vbInformation, "Fehler!"
Else
lblanzahl.Caption = cmdanzahl.Text
End If
End If