Macro que envía email informando valor en porcentaje

Estimado Deathwatch, hace un tiempo solicité ayuda y me respondiste de forma clara y oportuna, esta vez quisiera me ayudaras a resolver lo siguiente. He desarrollado una macro para que envíe vía email un valor que está expresado en %. Denominé la celda donde está el valor como "tabla1" y esta denominación va en el strbody del mensaje del email. Sin embargo este aparece como número y no como porcentaje (en vez de aparecer 9,41% aparece 0,041).
La macro es la siguiente:
Sub email_alerta()
'
'Envía aviso cuando se ha excedido el límite superior
    Range("I47").NumberFormat = "00%"
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim tabla1 As Range
    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    Set tabla1 = Range("I47")
    strbody = "srs" & vbNewLine & vbNewLine & _
              "El control de plagas detectó que el área que usted administra presentó un incremento del consumo de cebos. El porcentaje de consumo asciende a: " & tabla1 & vbNewLine & _
             "atentamente, Administrador"
    On Error Resume Next
    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "Control de roedores"
        .Body = strbody
        .Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub
A la espera de tu valiosa ayuda le saluda, donghi.