Private Sub txtTabSof_KeyDown(KeyCode As Integer, Shift As Integer)
Dim Ret As String, Er As String, Er1 As String
Dim msg As String, pr As String

If KeyCode =  13  Then
pr = "S"
....

Private Sub zRascet()
Dim Ret As String, Er As String, Ret1 As String
Dim cnt As Integer, n As Integer, Rut As Integer
Dim Dat As String, Sof As String, Tax As String
Dim cik As Long
....