My Blog

 Dim myBlog as oBlog

 Friend Sub createMyFirstBlog()

    if myBlog is nothing then
      set myBlog=new oBlog
        with myBlog
          .title="firstBlog"
          .description="binunnnn nieeh"
        end with
    else
      exit sub
    end if

  End Sub