Private Sub CommandButton1_Click()

Dim formant As Control
Dim dane_z_pol_lekst(1 To 6)    ' tablica dla danych z 6 pól tekstowych
Dim i As Long

i = 1

    For Each formant In UserForm1.Controls
        If TypeName(formant) = "TextBox" Then
            dane_z_pol_lekst(i) = formant.Value
            i = i + 1
        End If
    Next formant
    
    
' aby wyświetlić zawartość tablicy
For i = 1 To 6
    MsgBox dane_z_pol_lekst(i)
Next i

End Sub

ActiveCell.Value = ">="
ActiveCell.Value = "<="

Range("A1").Value = ">="
Range("A2").Value = ">="