Private Sub TextBox_Change()    
 Dim LenText As Byte    
 LenText = Len(TextBox.Text)
    If LenText = 7 Then
    ' действие
    End If
End Sub

Private Sub TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
    ' действие
    End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Unload Me
UserForm2.Show 1
End If
End Sub



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Unload Me
UserForm1.Show 1
End If
End Sub

For j = 8 To 30 Step 3
    With Me
   .Controls("lbl_praca" & k).Caption = Cells(4, j)
    End With
  k = k + 1
 Next j