Aunque el que viene a continuación no es un código que te vaya a funcionar tal cual, te servirá para darte una idea de cómo acceder a la información de roles:

Dim objUser As UserInfo = UserController.GetUserByName(Me.PortalId, txtUserName.Text)

Dim objRoleController As New RoleController

Dim objUserRole As UserRoleInfo = objRoleController.GetUserRole(PortalID, UserID, RoleID)
If Not (objUserRole Is Nothing) Then
If (objUserRole.ExpiryDate <> Null.NullDate) Then
If (objUserRole.ExpiryDate > DateTime.Now) Then
objReceipt.DateStart = objUserRole.ExpiryDate
End If
End If
End If