ok....l'ho ricritta così....sintatticamente va bene, ma non mi accetta mai il valore dandomi sempre il 2° MsgBox ... lo vede sempre minore di 100?? dove sbaglio raga???!

codice:
    If Not IsNumeric(txtCodCom.Text) Then
    MsgBox "Inserire un Codice Commessa valido"
    txtCodCom.SetFocus
    ElseIf (Len(Trim(txtCodCom.Text)) < 100) Or (Len(Trim(txtCodCom.Text)) > 1000) Then
    MsgBox "Inserire un Codice Commessa valido (compreso tra 100 e 1000)"
    txtCodCom.SetFocus