VB2008 Exr problem using resx resource

[Galen Somerville]

I'm not using Cultures so I just want to pull strings out of a Resource dll.

In References there is a reference to the CDS80Eng.dll

Partial code in a module
---------------
Public Function GetResource() As Boolean
Public clsRes As CDS80Eng.CDS80Eng

Public Function GetResource() As Boolean

Select Case gLangBas
Case 0
clsRes = New CDS80Eng.CDS80Eng
End Select

sMsg1 = clsRes.LoadResStgA(305)
----------------------

sMsg1 returns "Nothing" and should return "Error #"

Here's the code of the CDS80Eng class DLL
-------------------
Public Class CDS80Eng
ReadOnly Property LoadResStgA(ByVal intline As Short) As String
Get
LoadResStgA = My.Resources.ResourceManager.GetString("str" &
CStr(intline + 3000))

End Get
End Property

ReadOnly Property LoadResStgB(ByVal intline As Short) As String
Get
LoadResStgB = My.Resources.ResourceManager.GetString("str" &
CStr(intline))

End Get
End Property

Private Sub Class_Terminate_Renamed()
On Error Resume Next

End Sub
Protected Overrides Sub Finalize()
Class_Terminate_Renamed()
MyBase.Finalize()
End Sub

End Class
------------------------------

Here's the line in the resx file of the DLL

str3305 Error #

At the line sMsg1 = clsRes.LoadResStgA(305) it does step through the DLL
properly.

Any suggestions.

Galen