Anton,
Add a module to an Excel project, then you can make into a function, passing
the number (or 2 numbers, I'm sure how you implementation works) and return
a string or Boolean. e.g.

Public function TestID (ID1 as string) as String
'etc
ID=ID1
'etc...
If base < Tmpr Then
TestID = "You must enter 11 number for ID (0 - 9) "
ElseIf (i = TmpStr) And (y = TmpStr2) Then
TestID = "Thanks for right ID no."
Else
TestID = "Wrong ID no."
End If

End function

call it from a worksheet with:
=TestID(A1)

Depends where vekt1& vekt2 are coming from.

NickHK

"ANton Petrov" wrote in message
...
where should i copy this code in Excel?
Thanks :)