Cambiar configuracion regional desde vb6.0

[SalomonSab]

prueba con esto:

Código:

Dim n as Byte
    Dim X As Variant

    n = 0  
Repite:
    X = Mid(Date, 7)

    If Len(X) < 4 Then
        X = MsgBox("                 ¡¡¡ ATENCION !!!" & Chr(10) & Chr(10) & _
                "Modifique la ""Configuración Regional"" de forma que" & chr(10) &  _
                "la fecha tenga el formato de ""dd/mm/aaaa""", vbCritical)
        Shell "rundll32.exe shell32.dll,Control_RunDLL " & _
                "intl.cpl" & _
                ",," & _
                Format$(0)
        n = n + 1
        If n > 3 Then
            End
        Else
            GoTo Repite
        End If
    End If

'Este código lo pongo en las primeras líneas del procedimiento Main.