B4J Code Snippet Initializing JavaObject

I often wished the following code was valid

Dim someVar as JavaObject = someVar.InitializeNewInstance("some.java.class",null)

but alas, someVar doesn't exist on the right side until the dim statement is executed
so we have to use

Dim someVar as JavaObject
someVar.InitializeNewInstance("some.java.class",null)

but …..
if you add this tiny method

Sub New(javaClass as String, Values() as Object) As JavaObject
Dim Jo as JavaObject
Return Jo.InitiallizeNewInstance(javaClass,values)
End Sub

Now you can have

Dim someVar As JavaObject = New("some.java.class",null)