Could you create a new instance of DotNetNuke.Entities.Portals.PortalSettings providing a tabid and a PortalAliasInfo to the constructor? Its not as straight forward as you might desire, but may do the trick.

Let me know what you think,

Ian

Going with your suggestion, I have come up with the example below.  (I haven't tested it yet.)

Dim p_Info As New DotNetNuke.Entities.Portals.PortalInfo
Dim p_Alias As New DotNetNuke.Entities.Portals.PortalAliasCollection
Dim strAlias As String = String.Empty
Dim ctlPortal As New DotNetNuke.Entities.Portals.PortalController
Dim ctlPortalAlias As New DotNetNuke.Entities.Portals.PortalAliasController

p_Info = ctlPortal.GetPortal(PortalId)
p_Alias = ctlPortalAlias.GetPortalAliasByPortalID(PortalId)

For Each key As String In p_Alias.Keys
    If Not String.IsNullOrEmpty(key) Then
        strAlias = key
        Exit For
    End If
Next

Dim p_Settings As New DotNetNuke.Entities.Portals.PortalSettings(p_Info.HomeTabId, p_Alias.Item(strAlias))