I have the following code... It creates a new child page, then adds a text/html module to the page... I am trying to figure out how to populate the html module with content programmatically

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click


            Dim tabCntrl As New TabController()
            Dim tabInfo As New TabInfo()


            Dim tabInfoParent As New TabInfo
            tabInfoParent = tabCntrl.GetTab(tabInfo.ParentId, PortalId, True)


            With tabInfo
                .ParentId = 93
                .PortalID = PortalId
                .TabName = "civic"
                .Title = "my tab title"
                .Description = "my description"
                .KeyWords = "my keywords"
                .IsDeleted = False
                .IsSuperTab = False
                .IsVisible = True
                .DisableLink = False
                .IconFile = ""
                .Url = ""


            End With


            Dim intNewTabID As Integer
            intNewTabID = tabCntrl.AddTab(tabInfo)


            SetPermission()
            AddModuleHTMLMod()


            DataCache.ClearTabsCache(PortalId)


        End Sub


        Protected Sub SetPermission()
            Dim tabController As New DotNetNuke.Entities.Tabs.TabController()
            Dim infPermission As New DotNetNuke.Security.Permissions.TabPermissionInfo()
            Dim permissionProvider As DotNetNuke.Security.Permissions.PermissionProvider = DotNetNuke.Security.Permissions.PermissionProvider.Instance()


            With infPermission
                .AllowAccess = True
                .RoleID = -1
                .TabID = TabId
                .PermissionID = 3
            End With


            Dim tabInfo As DotNetNuke.Entities.Tabs.TabInfo = tabController.GetTabByName("civic", Me.PortalId)


            Dim permissions As DotNetNuke.Security.Permissions.TabPermissionCollection = tabInfo.TabPermissions
            permissions.Add(infPermission, True)


            permissionProvider.SaveTabPermissions(tabInfo)


        End Sub


        Protected Sub AddModuleHTMLMod()
            Dim moduleCntrl As New ModuleController()
            Dim moduleInfo As New ModuleInfo()


            Dim tabCntrl As New TabController()
            Dim tabInfo As New TabInfo()


            Dim intPage As Integer


            tabInfo = tabCntrl.GetTabByName("civic", Me.PortalId)


            intPage = tabInfo.TabID()


            With moduleInfo
                .ModuleTitle = "TEST MODULE"
                .PortalID = PortalId
                .TabID = intPage
                .PaneName = "ContentPane"
                .ModuleDefID = "108"
                .DisplayPrint = False
                .DisplaySyndicate = False
                .IsDeleted = False
                .InheritViewPermissions = True
                .DisplayTitle = False
                .Visibility = VisibilityState.None
            End With


            moduleCntrl.AddModule(moduleInfo)


            DataCache.ClearModuleCache(TabId)


        End Sub