add the folowing inside the "With fUser" section

.Profile = dnnUser.Profile

so the shared function "GetForumUser"  should read

Public Shared Function GetForumUser(ByVal UserID As Integer) As ForumUser

Dim _portalSettings As PortalSettings = PortalController.GetCurrentPortalSettings

Dim keyID As String = FORUM_USER_CACHE_KEY_PREFIX & UserID.ToString

Dim fUser As ForumUser

If DataCache.GetCache(keyID) Is Nothing Then

' If current user is authenticated, get it

If UserID > 0 Then

      Dim ctlForumUser As New ForumUserController

'If we could not find this forum user, create it from DNN users data

If fUser Is Nothing Then

   Dim ctlDNNUser As New UserController

   Dim dnnUser As UserInfo = ctlDNNUser.GetUser(_portalSettings.PortalId, UserID)

   ' Insert new forum user with minumun requirement info

Try

      fUser = New ForumUser
      With fUser
            .UserID = dnnUser.UserID
            .Alias = dnnUser.Membership.Username
            .Profile = dnnUser.Profile
      End With

Catch Exc As System.Exception

End Try

End If

Else ' If not, return an anonymous user

fUser = New ForumUser

With fUser

End With

End If

End If

Return CType(DataCache.GetCache(keyID), ForumUser)

End Function