title: Make VBA produce a percentage, not a decimal
body: <p>Here is an example of some code I'm trying to write. Str2 refers to cell B2 in Sheet1 - this is just a plain "10%" formatted as a percentage. However, when I apply the macro it shows as its decimal equivalent. Please can you suggest how I could make it show the percentage - 10%?</p>
  
  <pre><code>Sub DecimalAsPercent()
  
  Dim str1 As String, str2 As String, str3 As String
  
  str1 = "Policy returns "
  str2 = Range("Sheet1!B2").Value
  str3 = " Per Annum"
  
  Range("B2").Value = str1 &amp; str2 &amp; str3
  
  Range("B2").Characters(Start:=Len(str1) + Len(str2) + 1, Length:=(str3)).Font.Bold = True
  
  End Sub
  </code></pre>
  
  <p>Resulting in "Policy returns 0.1 <strong>Per Annum</strong>"</p>
  
  <p>I've also tried the following, to no avail.</p>
  
  <pre><code>Sub DecimalAsPercent()
  
  Dim str1 As String, str2 As String, str3 As String
  
  str1 = "Policy returns "
  str2 = Range("Sheet1!B2").Value
  str3 = " Per Annum"
  
  Range("B2").Value = str1 &amp; str2 &amp; str3
  
  Range("B2").Characters(Start:=Len(str1) + Len(str2) + 1, Length:=(str3)).Font.Bold = True
  
  End Sub
  </code></pre>
  
  <p>Resulting in "Policy returns true <strong>Per Annum</strong>"</p>
  
  <p>Thanks in advance!</p>