Public etykieta

Private Sub Label1_Click()
etykieta = 1
UserForm2.Show
End Sub

Private Sub Label2_Click()
etykieta = 2
UserForm2.Show
End Sub

Private Sub Label3_Click()
etykieta = 3
UserForm2.Show
End Sub

Private Sub Label4_Click()
etykieta = 4
UserForm2.Show
End Sub

Private Sub UserForm_Initialize()

Select Case UserForm1.etykieta
    Case 1
        MsgBox "Plik_1"
    Case 2
        MsgBox "Plik_2"
    Case 3
        MsgBox "Plik_3"
    Case 4
        MsgBox "Plik_4"
End Select

End Sub

Load UserForm2
UserForm2.Show

Dim strNazwaPliku As String
.
.
.
UserForm2.Caption = strNazwaPliku
Load form2
form2.Show