Typen Unverträglich ?

augustus123

Grünschnabel
Warum zeigt es mir bei diesem Code bei "If user < 3 Then" an "Typen Unverträglich"?

Private Sub cmd_test_Click()

Dim user As String

user = txt_Username.Text

If user < 3 Then
Label2.ForeColor = &HC000&
Else: Label2.ForeColor = &HFF&
End If

End Sub
 
Code:
Private Sub cmd_test_Click()
Dim user As String
user = txt_Username.Text
  If len(user) < 3 Then
    Label2.ForeColor = &HC000&
  Else
    Label2.ForeColor = &HFF&
  End If
End Sub

So sollte es klappen.
 
Zurück