ok raga....questo monologo....forse era troppo fessa la cosa....è finito....e poichè onon mi piace vedere post lasciati privi di conclusione vi metto il codice....magari qualche sckeggia come me può avere la stessa difficolta !

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