Date format changing

This code below was supposed to transfer 2 kinds of date data.
If I press "Hoje" (It means "today") ribbon, it shall transfer =Today() function to the date column, but I press the "Outra data" (It means "anoter date") ribbon, it shall transfer the date I want (07/02/15, as the print example) to the date collumn. However, when I enter with any "another date", it brings back to the US format (which is different than mine, brazilian). It should be dd/mm/yy (or dd/mm/yyyy), but it is making it mm/dd/yyyy. (I've already check column date format and it's the brazilian one)

I've already desactivated the autofill option, but it won't work. I think that if each row were independent, there would be no problem.

This is my code: (I know this is only a part of the code, but I guess I won't be necessary. I needed, I can post it here)

'Date radios
            If radiohoje.value = True Then
                Range("B" & lrTest - 1).Formula = "=TODAY()"
            End If

            If radiooutradata.value = True Then
                Range("B" & lrTest - 1).value = DateBox.Text
            End If

This is my workbook: (1st image shows the userform with all that options to fill this table below - date option is there. 2nd image is the problem happening, as you can see by the 1st image date value.)