Thanks for the reply Kevin. I implemented this as follows:
In my main business classs:
Dim myAppBase As New mmAppBase
Public gUserID As String = myAppBase.UserMgr.UserID()

For all my class inheriting my main business class.
...
dr("CreatedBy") = gUserID
...