B4J Question Reduce repetitive code for classes

Sub MenuBar1_Action
    Dim mi As MenuItem = Sender
    select case mi.text
    case "Users"
        Dim us As Users  ' general class
        us.Initialize
    case "Unity"
        Dim un As Unity
        un.Initialize
    End case
 
End Sub

Sub MenuBar1_Action
    Dim mi As MenuItem = Sender

     dim jo as JavaObject = createNewClass(mi.text) 'You can do with this object whatever you like. 

End Sub

Sub createNewClass(newClass As String) As JavaObject
    Dim jo As JavaObject
    jo.InitializeNewInstance("b4j.example."&newClass,Null) 'b4j.example is the name of your package written in the IDE -> Project -> Build Configurations.
    Return jo
End Sub