Ok, I tested a bit more and came up with this:

              
Dim objUserInfo2 As UserInfo = UserController.GetCurrentUserInfo
                        If objUserInfo2.UserID <> -1 Then
                            Dim sMyAccountLink = NavigateURL(PortalSettings.UserTabId, "Profile", "userId=" & UserController.GetCurrentUserInfo().UserID, "pageno=1")
                            Response.Write(String.Format("<a href='{0}'>Your Account</a>", sMyAccountLink))
                        End If

That's the one!