Hyperlinking part of an email body

Hi All,

I'm am creating an auto e-mail that is send from excel but i need to hyperlink part of the email body

Here's what i have so far:

Public Sub SendEmailToDave(ID As String, Action As String)
Dim MailSelection As Object
Dim Subject As String
Dim EmailAddress As String
Dim StrKID As String
Dim ToDo As String
Dim Href As String

Href = "http://corshwdsslv02.corp.pg.eon.net/Arnie/ViewReport.aspx?reportid=" & ID

StrKID = Application.UserName

Select Case Action
    Case 1
        ToDo = "Open"
    Case 2
        ToDo = "Close"
End Select
    
    Set OutLookApp = CreateObject("Outlook.Application")
     
            Subject = "Quiggers - Actions Required"
            EmailAddress = StrKID
             
            Set MailSelection = OutLookApp.CreateItem(0)
            With MailSelection
                .to = EmailAddress
                .Subject = Subject
                .Body = " Please could you " & ToDo & " & ARNIE Report " & ID & vbCr & vbCr _
                      & Href & vbCr & vbCr _
                      & " Thank you "
                .display
                SendKeys "%{S}", True
            End With
End Sub

Where i add the "Href" it does show the lilnk but instead of the entire link i just want it to be the "ID" (A 5 digit number so use 12345 as an example"

i hop that's clear people and any help is greatly appreciated.

Cheers