Getal in VBA email geeft geen 0 achter de komma weer

[johngub]

Hallo,

Ik heb in F46 (cel) bijv. staan 7.20 als ik dit ga versturen met email (zie code) dan laat hij de nul achter de komma niet zien.
Dan krijg ik 7.2 als het een ander getal is dan een 0 dan laat hij het wel zien.

Sub Mail_smiddags_Outlook()
 
 Dim OutApp As Object
 Dim OutMail As Object
 Dim strbody As String

 Set OutApp = CreateObject("Outlook.Application")
 Set OutMail = OutApp.CreateItem(0)

strbody = "<font size=""4"" face=""Verdana"">Goede Middag<br><br>" & _
              "<B><font size=""3"">test tekst</B><br><br><br>" & _
              "Het getal is ....<font size=""4""><B>" & ActiveSheet.Range("F46")

 
 
 On Error Resume Next
 With OutMail
 .To = "test@test.nl"
 .CC = ""
 .BCC = ""
 .Subject = "Hallo"
 .HTMLBody = strbody
 .Display
 
 End With
 On Error GoTo 0

 Set OutMail = Nothing
 Set OutApp = Nothing
 Call Mail_smorgens_Outlook
 End Sub

 

[snb]

format(Range("F46"),"00")

 

[johngub]

Het werkt bedankt...