vba - VBAバリアントMsgBoxフォーマットのパーセント（％）

Question

Sub PctTest()
   Dim Third As Variant
   Third = 1 / 3    
   MsgBox (Third)
End Sub

msgboxに変数「Third」を33.33％として表示させるにはどうすればよいですか？セルをフォーマットする方法は知っていますが、周りを見回して、このような変数をフォーマットする方法がわかりません。よろしくお願いします-トミー

Answer 1

組み込みを使用できます：FormatPercent(1 / 3, 2)

Answer 2

どうですか：

   Dim Third As Variant
   Third = Format(1 / 3, "##.00%")
   MsgBox (Third)