DLL POUR MULTILANGUES

Public Function GetMsg(InLanguage As String, InMsgNo As String) As String
    Dim FileLng As String, StringOutNumber As String
    Dim StringOutFR As String, StringOutEN As String, StringOutDE As String, StringOutIT As String
    FileLng = App.Path + "\messages.lng"
    Open FileLng For Input As #1
    Do While Not EOF(1)
        Input #1, StringOutNumber, StringOutFR, StringOutEN, StringOutDE, StringOutIT
        If StringOutNumber = InMsgNo Then
            Select Case UCase(InLanguage)
                Case "FR"
                    GetMsg = StringOutFR
                Case "EN"
                    GetMsg = StringOutEN
                Case "DE"
                    GetMsg = StringOutDE
                Case "IT"
                    GetMsg = StringOutIT
            End Select
            Exit Do
        End If
    Loop
    Close #1
    If Len(GetMsg) < 1 Then
        Select Case UCase(InLanguage)
            Case "FR"
                GetMsg = "Message " + InMsgNo + " pas trouvé."
            Case "EN"
                GetMsg = "Message " + InMsgNo + " not found."
            Case "DE"
                GetMsg = "Gefundene Mitteilung " + InMsgNo + " nicht."
            Case "IT"
                GetMsg = "Messaggio " + InMsgNo + " non trovato."
        End Select
    End If
End Function