Visual Basic - PROBLEMAS CON FECHAS, PARECE FACIL

HOLA! mi problema es el siguiente tengo un sistema que usa tipo de fecha dd/mm/aaaa y resulta que lo puse en un pc que usa formato dd/mm/aa y se cae.
¿como puedo verificar dentro del sistema que tipo de formato usa el pc para poder trabajar bien con el mio? quedo claro?

Con la función GetLocaleInfo:

Public Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long

Public Const LOCALE_IDATE = &H21 ' short date format ordering

Public Const LOCALE_IDAYLZERO = &H26 ' leading zeros in day field

Public Const LOCALE_ICENTURY = &H24 ' century format specifier

te puedo decir ceci?
la pregunta es ceci esa funcion la coloco en un modulo?
y como funciona? plis

Si la función la declaras Pública debes colocarla en un módulo, si la declaras Privada puede estar en un formulario.

Const LOCALE_USER_DEFAULT = &H400
Const LOCALE_SENGCOUNTRY = &H1002 ' English name of country
Const LOCALE_SENGLANGUAGE = &H1001 ' English name of language
Const LOCALE_SNATIVELANGNAME = &H4 ' native name of language
Const LOCALE_SNATIVECTRYNAME = &H8 ' native name of country
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Sub Form_Load()
MsgBox "You live in " & GetInfo(LOCALE_SENGCOUNTRY) & " (" & GetInfo(LOCALE_SNATIVECTRYNAME) & ")," & vbCrLf & "and you speak " & GetInfo(LOCALE_SENGLANGUAGE) & " (" & GetInfo(LOCALE_SNATIVELANGNAME) & ").", vbInformation
End Sub

Public Function GetInfo(ByVal lInfo As Long) As String
Dim Buffer As String, Ret As String
Buffer = String$(256, 0)
Ret = GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, Buffer, Len(Buffer))
If Ret > 0 Then
GetInfo = Left$(Buffer, Ret - 1)
Else
GetInfo = ""
End If
End Function

que te vaya bien