Android Question ad hoc assignment of custom type

Sub Process_Globals
    type sometype_t(a as int, b as int)

    dim const some_1 as sometype_t = assign(1, 2)
    dim const some_2 as sometype_t = assign(2, 3)
    dim const some_3 as sometype_t = assign(134, 235)
    dim const some_4 as sometype_t = assign(0, 55)
end sub

private sub assign(p1 as int, p2 as int) as sometype_t
    dim t as sometype_t
    t.a = p1
    t.b = p2
    return t
end sub