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...
Bookmarks