[VBA]: Date invertite in Excel

[polog40]

Ciao il mio problema è che se scrivo delle date su un foglio excel queste vengono invertite nel caso il mese e il giorno siano dei valori inferiori a 12

per ovviare a questo ho scritto questa procedura che inverte la data in modo opportuno

Function InvData(Data As Variant) As String
Dim App() As String
Dim StrApp As String
If Not IsNull(Data) Then
If Data <> vbNullString Then
If Data Like "N.D." Then
StrApp = Data
Else
App() = Split(CStr(Trim(Data)), "/")
If Val(App(0)) < Val(App(1)) Then
StrApp = App(1) & "/" & App(0) & "/" & App(2)
ElseIf Val(App(0)) <= 12 Then
StrApp = App(1) & "/" & App(0) & "/" & App(2)
Else
StrApp = App(0) & "/" & App(1) & "/" & App(2)
End If
End If
End If
Else
StrApp = "N.D."
End If
InvData = StrApp
End Function

Il problema è che in excel a questo punto le date vengono un pò caricate come date e un pò come semplici stringhe e quando cerco di ordinarle con ordina dati non le ordina!!

Sapete aiutarmi???

[polog40]

Nessuno sà come aiutarmi!?!!!

[newbie]

Originariamente inviato da polog40
Nessuno sà come aiutarmi!?!!!

In che senso vengono caricate un po' come date e un po' come stringhe? O meglio... quando?