Private Sub Command1_Click()
Dim result As String
result = ""
For i = 0 To 3
For j = 0 To 3
If j <> i Then
For k = 0 To 3
If k <> j And k <> i Then
For m = 0 To 3
If m <> k And m <> j Then
If m <> i Then
result2 = result2 & txt_t(i).Text & txt_t(j).Text & txt_t(k).Text & txt_t(m).Text & "; "
End If
End If
Next m
End If
Next k
End If
Next j
Next i
MsgBox result2
End Sub