Private Sub txtPrüfungsbemerkung_ButtonClick(bCancel As Boolean)
    Dim sText As String
    sText = txtPrüfungsbemerkung.ShowFloskeln()
    If Len(sText) > 0 Then
        If Me.chkKommentarAusFloskelfeldAlsAbsatz.Value = vbChecked Then
            Me.txtPrüfungsbemerkung.Text = Me.txtPrüfungsbemerkung.Text & _
              vbcrlf & sText
        Else
            Me.txtPrüfungsbemerkung.SetText sText
        End If
    End If
 
End Sub