pH Atlas — Business Case Deck

Sub CreateBusinessCaseDeck()
    Dim ppt As Object
    Dim pres As Object
    Dim sld As Object
    Dim shp As Object

    Set ppt = CreateObject("PowerPoint.Application")
    ppt.Visible = True
    Set pres = ppt.Presentations.Add

    ' Helpers
    Dim W As Long, H As Long
    W = 960
    H = 540

    ' ===================== SLIDE 1: TITLE =====================
    Set sld = pres.Slides.Add(1, 1) ' ppLayoutBlank = 1
    sld.Shapes.AddShape(1, 0, 0, W, H).Fill.ForeColor.RGB = RGB(13, 42, 58)
    AddTextBox sld, 60, 160, 840, 80, "pH Atlas", 44, True, RGB(255, 255, 255)
    AddTextBox sld, 60, 250, 840, 50, "Business Case: The Interpretation Layer for Chronic Wound Care", 22, False, RGB(180, 220, 235)
    AddTextBox sld, 60, 320, 840, 40, "Multi-Site Clinical pH Reference & Educational Platform", 16, False, RGB(150, 180, 200)
    AddTextBox sld, 60, 460, 840, 30, "Shepherds Bond LLC  |  Confidential", 12, False, RGB(120, 150, 170)

    ' ===================== SLIDE 2: EXECUTIVE SUMMARY =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "Executive Summary"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "pH Atlas is the only platform that contextualizes pH readings across multiple body sites simultaneously.", _
        "The platform is purely educational today - a clinical reference and learning tool, not a diagnostic device.", _
        "Critical gap: Point-of-care pH measurement devices exist, but none provide educational interpretation or correlate it with systemic acid-base status.", _
        "Initial beachhead market: Chronic wound care education - a $25B+ US market with 6.5M patients suffering from non-healing wounds.", _
        "Wound pH is a proven biomarker: healing wounds acidify (pH 5-7), non-healing wounds stay alkaline (pH 7.15-8.9).", _
        "Existing infrastructure is ready: multi-site reference data, AI interpreter, historical tracking, and a planned 3D-printable pH tester.", _
        "Revenue model: freemium SaaS for clinicians and students, premium tier for wound care clinics, device sales for the pH tester." _
    ), 16

    ' ===================== SLIDE 3: THE PROBLEM =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "The Problem We Solve"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "Chronic wounds affect 6.5 million patients in the US alone, costing $25-50 billion annually.", _
        "Diabetic foot ulcers are the #1 cause of non-traumatic lower limb amputation.", _
        "Wound pH is an established early biomarker - rising pH predicts infection before visible clinical signs appear.", _
        "BUT: existing pH measurement tools (DETEC pH, smart bandages, MolecuLight) stop at the raw number.", _
        "A clinician measuring pH 8.2 on a wound has no tool to contextualize it against reference ranges.", _
        "No tool correlates wound pH with systemic acid-base status (blood, urine) to identify systemic contributors to poor healing." _
    ), 16

    ' ===================== SLIDE 4: THE GAP =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "The Market Gap"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "Current tools measure pH - none interpret it.", _
        "No cross-body-site pH correlation exists in any commercial product.", _
        "A wound clinic gets 'pH 8.2' and must interpret from memory or scattered textbook references.", _
        "Systemic factors (uncontrolled diabetes, kidney dysfunction) alter both blood and wound pH - no tool surfaces this connection.", _
        "pH Atlas is positioned as the interpretation layer that sits between measurement devices and clinical decisions.", _
        "This is a blue ocean: no competitor offers multi-site pH correlation for wound care." _
    ), 16

    ' ===================== SLIDE 5: SOLUTION OVERVIEW =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "Solution: pH Atlas Platform"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "Multi-site pH reference atlas: blood, urine, saliva, CSF, wound/skin, pleural, synovial, and more.", _
        "Interactive pH checker: enter a value and get instant educational interpretation against reference ranges.", _
        "AI Interpreter: contextualizes readings for learning, separates facts from assumptions, provides structured educational feedback.", _
        "Historical tracking with analytics: trend visualization across body sites over time.", _
        "Community board: peer-reviewed case discussions and clinical insights.", _
        "Companion 3D-printable pH tester device for affordable point-of-care measurement.", _
        "Path to diagnostic: the platform can be transformed into a diagnostic tool with regulatory clearance - but from the outset it is purely educational." _
    ), 16

    ' ===================== SLIDE 6: WOUND CARE USE CASE =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "Beachhead: Chronic Wound Care"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "6.5M chronic wound patients in the US; 2M+ diabetic foot ulcers annually.", _
        "Wound clinics measure pH but lack interpretation tools - the gap pH Atlas fills.", _
        "Clinical workflow: measure wound pH with the pH tester, log it in pH Atlas, get AI-guided interpretation.", _
        "Cross-site correlation: wound pH 8.2 + blood pH 7.25 + urine pH 5.0 = systemic acidosis contributing to non-healing.", _
        "Trend tracking: pH Atlas visualizes wound acidification over weeks, predicting healing trajectory.", _
        "Early detection of rising pH enables intervention 3-5 days before visible infection signs." _
    ), 16

    ' ===================== SLIDE 7: BLOOD SUGAR & pH =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "Clinical Signal: Blood Sugar Impact on pH"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "Hyperglycemia drives metabolic acidosis via diabetic ketoacidosis (DKA) - ketones consume bicarbonate, pH drops below 7.3.", _
        "Severe DKA can push blood pH below 7.0 - a life-threatening emergency.", _
        "Chronic hyperglycemia in diabetics creates a persistently acidic systemic environment impairing wound healing.", _
        "Diabetic foot ulcers: wound bed stays alkaline (pH 7.5-8.9) while blood trends acidotic - a multi-site pH signature.", _
        "Hypoglycemia triggers counter-regulatory hormones causing transient respiratory alkalosis from hyperventilation.", _
        "pH Atlas is the only tool that surfaces this cross-site correlation for clinicians." _
    ), 16

    ' ===================== SLIDE 8: COMPETITIVE LANDSCAPE =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "Competitive Landscape"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "LITFL / MedCalc: ABG-only calculators, single-site, no wound pH, no multi-site correlation.", _
        "MolecuLight: fluorescence imaging for wound bacteria - measures, does not interpret pH clinically.", _
        "DETEC pH: disposable wound pH test strip - raw number only, no interpretation or tracking.", _
        "Smart bandages (research stage): continuous monitoring, no clinical decision support.", _
        "pH Atlas differentiator: multi-site reference + AI interpretation + trend tracking + cross-site correlation.", _
        "No competitor does cross-body-site pH correlation - this is our defensible moat." _
    ), 16

    ' ===================== SLIDE 9: TARGET MARKETS =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "Target Markets"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "Primary: Wound care clinics & podiatry practices (3,400+ wound clinics in the US).", _
        "Secondary: Hospital EDs and ICUs (ABG interpretation + multi-site pH for critically ill patients).", _
        "Tertiary: Nursing & medical education (300,000+ nursing students and 20,000+ med students annually).", _
        "Quaternary: Home health & chronic disease management (diabetes, CKD patients self-monitoring).", _
        "TAM: $2.1B clinical decision support market growing at 9.8% CAGR.", _
        "SAM: $420M wound care diagnostics and clinical reference segment." _
    ), 16

    ' ===================== SLIDE 10: REVENUE MODEL =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "Revenue Model"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "Freemium SaaS: free tier for students and individual clinicians (educational reference + checker).", _
        "Pro tier ($29/mo): AI interpreter, unlimited history, analytics, PDF educational reports.", _
        "Clinic tier ($199/mo per clinic): multi-user, cross-site correlation, case synthesis AI - all educational.", _
        "Device sales: 3D-printable pH tester at $45/unit, targeting wound clinics and home health education.", _
        "Enterprise: hospital system licensing with API integration into EHR workflows for clinical education.", _
        "Projected Year 2 ARR: $1.2M (500 Pro + 80 clinics + 1,000 device units)." _
    ), 16

    ' ===================== SLIDE 11: GO-TO-MARKET =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "Go-To-Market Strategy"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "Phase 1: Medical education communities - Reddit, Discord, study servers (free user acquisition).", _
        "Phase 2: SEO targeting 'clinical pH reference chart', 'wound pH interpretation', 'ABG educational tool'.", _
        "Phase 3: Short-form video (MedTok, NursingTok) demonstrating the pH checker and quiz.", _
        "Phase 4: Direct outreach to 100 wound care clinics for educational pilot programs with the pH tester device.", _
        "Phase 5: Conference presence at SAWC (Symposium on Advanced Wound Care) and APWCA.", _
        "KPIs: 500 weekly visitors in 60 days, 200 checker uses/week, 100 quiz sessions/week." _
    ), 16

    ' ===================== SLIDE 12: TRACTION =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "Current Traction"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "Platform is live and published with full multi-site pH reference data.", _
        "Interactive pH checker, AI interpreter, quiz tutor, and community board all operational.", _
        "38-source peer-reviewed reference library - a standalone linkable resource.", _
        "Automated weekly pH report workflow with email delivery to registered users.", _
        "Abnormal reading alert system with secure email notification pipeline.", _
        "Device specification page gated behind login and admin approval - ready for beta tester onboarding." _
    ), 16

    ' ===================== SLIDE 13: TECHNOLOGY MOAT =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "Technology & Defensibility"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "Multi-site pH reference database: the only comprehensive cross-body-site pH dataset in a clinical tool.", _
        "AI interpreter with structured clinical reasoning: separates facts from assumptions, self-reviews before output.", _
        "Historical analytics engine: trend visualization across body sites - data that compounds with usage.", _
        "3D-printable pH tester: affordable, manufacturable hardware that pairs with the software platform.", _
        "Community knowledge base: case synthesis AI queries community notes to clarify complex cases.", _
        "Network effects: more users = more community data = better AI interpretation = stronger moat." _
    ), 16

    ' ===================== SLIDE 14: RISKS & MITIGATIONS =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "Risks & Mitigations"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "Regulatory: pH Atlas is purely educational from the outset - not a diagnostic device - clearly disclaimed throughout the app.", _
        "Liability: all interpretations labeled as educational; always recommends clinician confirmation.", _
        "Future diagnostic pathway: the platform can be transformed into a diagnostic tool with regulatory clearance, but that is a deliberate later phase - not the starting position.", _
        "Adoption: free tier removes friction; education community seeding drives organic growth.", _
        "Data accuracy: 38 peer-reviewed sources; reference ranges are representative population averages.", _
        "Device manufacturing: 3D-printable design keeps unit cost low and scalable.", _
        "Competition: multi-site correlation is our defensible moat - no competitor replicates this easily." _
    ), 16

    ' ===================== SLIDE 15: MILESTONES =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "12-Month Milestones"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "Months 1-3: Reach 500 weekly visitors; 200 checker uses/week via SEO and community engagement.", _
        "Months 4-6: Launch wound care pilot with 10 clinics; refine AI interpreter for wound pH use case.", _
        "Months 7-9: Ship 3D-printable pH tester beta units to pilot clinics; collect feedback.", _
        "Months 10-12: Scale to 100 clinics; pursue SAWC conference presence; explore EHR integration.", _
        "Year 1 target: 500 Pro subscribers, 80 clinic subscriptions, 1,000 device units shipped.", _
        "Year 2 target: $1.2M ARR; Series A readiness with proven wound care traction." _
    ), 16

    ' ===================== SLIDE 16: THE ASK =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    AddHeader sld, "The Ask"
    AddBullets sld, 60, 110, 840, 380, Array( _
        "Seeking $500K seed investment to execute the 12-month roadmap.", _
        "Allocation: 40% engineering (device manufacturing + AI model training), 30% go-to-market, 20% clinical pilot, 10% operations.", _
        "Key deliverables: pH tester v1 production, 10-clinic wound care pilot, 500 weekly active users.", _
        "Strategic partnerships: wound care clinic networks, nursing education programs, diabetes associations.", _
        "Exit pathways: acquisition by wound care company (Healogics, Smith+Nephew), EHR vendor (Epic, Cerner), or Series A.", _
        "Founder commitment: full-time, built the entire platform to date - ready to scale." _
    ), 16

    ' ===================== SLIDE 17: CLOSING =====================
    Set sld = pres.Slides.Add(pres.Slides.Count + 1, 1)
    sld.Shapes.AddShape(1, 0, 0, W, H).Fill.ForeColor.RGB = RGB(13, 42, 58)
    AddTextBox sld, 60, 180, 840, 70, "pH Atlas", 40, True, RGB(255, 255, 255)
    AddTextBox sld, 60, 260, 840, 50, "The interpretation layer for clinical pH - starting with chronic wound care.", 20, False, RGB(180, 220, 235)
    AddTextBox sld, 60, 340, 840, 40, "Measure. Interpret. Correlate. Heal.", 18, True, RGB(150, 200, 220)
    AddTextBox sld, 60, 460, 840, 30, "Shepherds Bond LLC  |  2026", 12, False, RGB(120, 150, 170)

    MsgBox "Business Case deck created: 17 slides.", vbInformation
End Sub

Private Sub AddHeader(sld As Object, title As String)
    Dim shp As Object
    Set shp = sld.Shapes.AddTextbox(1, 60, 40, 840, 50)
    shp.TextFrame.TextRange.Text = title
    shp.TextFrame.TextRange.Font.Size = 28
    shp.TextFrame.TextRange.Font.Bold = True
    shp.TextFrame.TextRange.Font.Color.RGB = RGB(13, 42, 58)
    ' underline bar
    Dim bar As Object
    Set bar = sld.Shapes.AddShape(1, 60, 92, 840, 3)
    bar.Fill.ForeColor.RGB = RGB(20, 120, 120)
    bar.Line.Visible = False
End Sub

Private Sub AddBullets(sld As Object, L As Long, T As Long, w As Long, h As Long, items As Variant, fs As Long)
    Dim shp As Object
    Set shp = sld.Shapes.AddTextbox(1, L, T, w, h)
    Dim i As Long
    Dim firstItem As Boolean
    firstItem = True
    For i = LBound(items) To UBound(items)
        If firstItem Then
            shp.TextFrame.TextRange.Text = "- " & items(i)
            firstItem = False
        Else
            shp.TextFrame.TextRange.InsertAfter vbCrLf & "- " & items(i)
        End If
    Next i
    shp.TextFrame.TextRange.Font.Size = fs
    shp.TextFrame.TextRange.Font.Color.RGB = RGB(40, 50, 60)
    shp.TextFrame.TextRange.ParagraphFormat.SpaceAfter = 8
    shp.TextFrame.WordWrap = True
End Sub

Private Sub AddTextBox(sld As Object, L As Long, T As Long, w As Long, h As Long, txt As String, fs As Long, bold As Boolean, clr As Long)
    Dim shp As Object
    Set shp = sld.Shapes.AddTextbox(1, L, T, w, h)
    shp.TextFrame.TextRange.Text = txt
    shp.TextFrame.TextRange.Font.Size = fs
    shp.TextFrame.TextRange.Font.Bold = bold
    shp.TextFrame.TextRange.Font.Color.RGB = clr
    shp.TextFrame.WordWrap = True
End Sub