Login language in BEx with VBA

Hello Experts!

I want to translate texts I write in the footer by VBA. Looks like this:

<i>

MyTable1.PageSetup.LeftFooter = "&""Arial,Standard""&8" & <my text in langu 1>.</i>

Now, i want to have the text depending on the login language.

I tried this:

<i>Dim myConnection As Object

Dim myLangu As String

Set myConnection = Run("SAPBEX.XLA!SAPBEXgetConnection")

myLangu = myConnection.Language</i>

But myLangu is always empty.

Does anyone know why or maybe a better way to do this?

Best Regards,

Peter