Private Sub txtFirmenName_Change()
  Dim sTemp As String
 
  <font color=green>' zunächst alle Leerzeichen entfernen</font>
  sTemp = Replace(txtFirmenName.Text, " ", "")
 
  <font color=green>' Wenn Firmen-Name mit "rai" beginnt,
  ' Druck-Button deaktiviren</font>
  cmdDrucken.Enabled = (LCase(Left(sTemp, 3)) <> "rai")
End Sub