Public Function GetPropertyValue(ByVal PropertyName As String, ByVal PortalID As Integer, ByVal UserID As Integer) As String
      Dim tmp As String = String.Empty
      Dim userInfo As DotNetNuke.Entities.Users.UserInfo
      userInfo = DotNetNuke.Entities.Users.UserController.GetUserById(PortalID, UserID)
      If userInfo IsNot Nothing AndAlso userInfo.UserID <> -1 Then
        Dim ppd As DotNetNuke.Entities.Profile.ProfilePropertyDefinition = userInfo.Profile.GetProperty("PersonalID")
        If ppd IsNot Nothing Then
          tmp = ppd.PropertyValue
          If tmp Is Nothing Then
            If Not String.IsNullOrEmpty(ppd.DefaultValue) Then
              tmp = ppd.DefaultValue
            End If
          End If
        End If
      End If
      Return tmp
End Function