🚀 go-pugleaf

Hoi

Ik moet in excell ervoor zorgen dat als de gebruiker op een knop drukt
hij verschillende inputboxen krijgt waar hij allerlei informatie moet
invullen. Dit 'programmatje' wordt dan met verschillende klanten
meegegeven zodat die het op hun eigen computer kunnen invullen. In een
van die inputboxen moet de gebruiker een datum in geven en ergens
anders op het document wordt de huidige datum ingevuld. Hoe kan ik er
nu voor zorgen dat die datum op elke computer in het engels wordt
ingegeven en niet bij de een in het engels, de andere in het chinees
enz.. Ik had al een stukje code geschreven:

Dim Dag As String
Dim DagMaand As String
Dim MaandNummer As String
Dim Maand As String
Dim Jaar As String
Dim Datum As String

Private Sub CommandButton1_Click()
Dag = Left(Date, 2)
DagMaand = Left(Date, 5)
MaandNummer = Right(DagMaand, 2)
If MaandNummer = "01" Then
    Maand = "january"
Else
    If MaandNummer = "02" Then
        Maand = "february"
    Else
        If MaandNummer = "03" Then
            Maand = "march"
        Else
            If MaandNummer = "04" Then
                Maand = "april"
            Else
                If MaandNummer = "05" Then
                    Maand = "may"
                Else
                    If MaandNummer = "06" Then
                        Maand = "june"
                    Else
                        If MaandNummer = "07" Then
                            Maand = "july"
                        Else
                            If MaandNummer = "08" Then
                                Maand = "august"
                            Else
                                If MaandNummer = "09" Then
                                    Maand = "september"
                                Else
                                    If MaandNummer = "10" Then
                                        Maand = "october"
                                    Else
                                        If MaandNummer = "11" Then
                                            Maand = "november"
                                        Else
                                            Maand = "december"
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End If
Jaar = Right(Date, 4)
Datum = Dag & " " & Maand & " " & Jaar
Range("a1").Value = Datum
End Sub

Maar in cel A1 zet de computer dan 22/feb/02.  De voor mij ideale
oplossing zou dus zijn 22 february 2003

Iemand een idee?

dank bij voorbaat

Sven Daems