OK I've manage it to work... halfway:

Cells(3, 1).Value = (Application.Min(TextBox1.Value, TextBox2.Value) & "-" & Right(Application.Max(TextBox1.Value, TextBox2.Value), 3))


I just discovered some issue, which i didn't take in considiration before...