LANGUAGE SELECT for your programs

Imports System
Imports System.IO
Imports System.Collections
Imports System.Resources
Imports System.Globalization
Imports System.Threading
Module ptLanguage
#Region "Strings aus der ResourceDatei holen"
    Public Function ResString(ByVal rIndex As String, ByVal LgManuel As String) As String
        '
        On Error GoTo ErrorHandler
        '
        Dim lang As CultureInfo = Thread.CurrentThread.CurrentCulture
        Dim spr As String = Trim(lang.ToString())
        Dim spr_file As String
        Dim SuchStr As String
        Dim ret As String
        Dim lgPfad As String = CurDir()
        '
        ret = "Error"
        '
        If Trim(LgManuel) <> "" Then
            spr = Trim(LgManuel)
        End If
        '
        Select Case spr
            Case Is = "de-DE"
                spr_file = "de.resources"
            Case Is = "en-US"
                spr_file = "us.resources"
            Case Is = "fr-FR"
                spr_file = "fr.resources"
            Case Is = "es-ES"
                spr_file = "es.resources"
            Case Else
                spr_file = "us.resources"
        End Select
        lgPfad = lgPfad & "\" & spr_file
        If File.Exists(lgPfad) Then
            Dim rr As ResourceReader = New ResourceReader(lgPfad)
            Dim rlg As IDictionaryEnumerator = rr.GetEnumerator
            While rlg.MoveNext()
                SuchStr = CType(rlg.Key, String)
                If Trim(SuchStr) = Trim(rIndex) Then
                    ret = CType(rlg.Value, String)
                    Exit While
                End If
            End While
            rr.Close()
            ResString = ret
        End If
        Exit Function
ErrorHandler:
        ret = "Error"
        Exit Function
        '
    End Function
#End Region
#Region "Language Ini vom System"
    '
    Public Sub Language_Ini()
        '
        Dim lang As CultureInfo = Thread.CurrentThread.CurrentCulture
        Dim spr As String = Trim(lang.ToString())
        '
        Select Case spr
            Case Is = "de-DE"
                Select_Language = CDe
            Case Is = "en-US"
                Select_Language = CUs
            Case Is = "fr-FR"
                Select_Language = CFr
            Case Is = "es-ES"
                Select_Language = CEs
            Case Else
                Select_Language = CUs
        End Select
        '
    End Sub
    '
#End Region
End Module