Runtime Error 2221

The text is too long to be edited

[humpingdan]

This is the area access is highlighting for me:

Private Sub Form_Load()

Dim username As String * 32

If GetUserName(username, 32) Then

If Trim(username) <> "Admin2" Then

If username = "KTomlin" Then username = "KLT"
If username = "nickyc" Then username = "NC"
staff.SetFocus
staff.Text = Trim(username) <<<<<****THIS LINE
week_commencing.SetFocus
'staff.Enabled = False

End If

End If

Any ideas greatly appreciated?

End Sub