Imports System.Globalization
Imports System.Resources
 
Public m_MyResourceManager As ResourceManager
Public m_ResourceManagerInitialized As Boolean = False
Public m_cultureInfo As CultureInfo

Public Sub Main()
     Try
        System.Windows.Forms.Cursor.Current = _
          System.Windows.Forms.Cursors.WaitCursor
 
        m_MyResourceManager = ResourceManager
        m_cultureInfo = Threading.Thread.CurrentThread.CurrentUICulture
        frmMainFORM = New frmMain
        Application.Run(frmMainFORM)
 
        System.Windows.Forms.Cursor.Current = _
          System.Windows.Forms.Cursors.Default
    Catch ex As Exception
        System.Windows.Forms.Cursor.Current = _
          System.Windows.Forms.Cursors.Default
        MessageBox.Show(ex.ToString, MyName, MessageBoxButtons.OK, _
        MessageBoxIcon.Information)
    End Try
End Sub

Public Property ResourceManager() As ResourceManager
        Get
            If Not m_ResourceManagerInitialized Then
                Dim assemblyName As String
                Dim executingAssembly As System.Reflection.Assembly
                Dim i As Integer
                Dim baseName As String
 
                executingAssembly = _
                  System.Reflection.Assembly.GetExecutingAssembly()
                assemblyName = executingAssembly.FullName
                i = assemblyName.IndexOf(",")
 
                If (i >= 0) Then
                    assemblyName = assemblyName.Substring(0, i).Trim()
                Else
                    assemblyName = "MeinProjektmappenname"
                End If
 
                baseName = assemblyName & ".MeinProjektmappenname"
                Return New ResourceManager(baseName, executingAssembly)
                m_ResourceManagerInitialized = True
            End If
            Return ResourceManager
        End Get
        Set(ByVal Value As ResourceManager)
            m_MyResourceManager = Value
        End Set
    End Property

Public Function GetErrorMessage(ByVal strValue As String) As String
        Try
            Return m_MyResourceManager.GetString(strValue, m_cultureInfo)
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Function

Me.Text=m_MyResourceManager.GetString("FORMTEXT")

Try
    'Irgendwas
Catch ex as Exception
    MessageBox.ToString(GetErrorMessage("MSGINVALIDVALUE",m_cultureInfo))
End Try