Android Question CallSub in B4x

    Private b4xp As B4xpageClass = B4XPages.GetPage("B4xPageClass")  'Already initialised the class elsewhere with b4xpages.AddPage
    B4XPages.ShowPage("B4xPageClass")
    b4xp.QRcodeTextLesen(data)
    B4XPages.ClosePage(Me)

Private Sub btn_continue_Click
    
    StopCamera
    Log(Variablen.GeleseneText)
    
    
    xui.subexists(GeneralSettings,"QRcodeTextLesen",1)
    
    StartActivity("GeneralSettings")
    
    CallSubDelayed2(GeneralSettings,"QRcodeTextLesen",Variablen.GeleseneText)
    'B4XPages.ClosePage(Me)
    
End Sub

Sub QRcodeTextLesen(msg As String)
    
    Dim Trenner() As String
    
    Trenner = Regex.Split("\|",msg)
    txtVorname.text = Trenner(0)
    txtNachname.Text = Trenner(1)
    txtemail.Text = Trenner(2)
    txtPW_Login.Text = Trenner(3)
    
End Sub

StartActivity("GeneralSettings")

if  xui.subexists(GeneralSettings,"QRcodeTextLesen",1) then
    CallSubDelayed2(GeneralSettings,"QRcodeTextLesen",Variablen.GeleseneText)
else
    Log("QRcodeTextLesen does not exist on General Settings")
end if

#Region  Project Attributes 
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName: 
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private xui As XUI
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    CallSubDelayed2(Activity2,"callme","Test string")
End Sub

#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private xui As XUI
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub callme(param As String)
    xui.MsgboxAsync(param,"Test")
End Sub

#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=pagestoactviity.zip

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
End Sub

Public Sub Initialize
'    B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Private Sub Button1_Click
    CallSubDelayed2(Activity2,"callme","This is from b4xpages")
End Sub

#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private xui As XUI
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

public Sub callme(param As String)
    xui.MsgboxAsync(param,"Test")
End Sub