da ich seinen letzen post überlesen hab hab ich es wieder editiert, die übersichtlichste lösung wäre
Code:
Select Case Combo1.Text
Case "ReadAByte", "ReadAnInt", "ReadALong", "ReadAFloat"
Exit Sub ' oder Exit Function
Case Else
Combo1.Text = ""
End Select
so wie du das geschrieben hast bedeutet es
Code:
If Not Combo1.Text = "ReadAByte" Or "ReadAnInt" Or "ReadALong" Or "ReadAFloat" Then Combo1.Text = ""
If Not Combo1.Text = "ReadAByte" Or "ReadAnInt" = TRUE Or "ReadALong" = TRUE Or "ReadAFloat" = TRUE Then Combo1.Text = ""
und da Combo1.text ein string ist kannst du es nich tmit einem boolean vergleichen , auser du machst Cbool(combo1.text) aber dann wurde es immer true zurück geben wenn iwas drinnstehet, glaub ich...