Formatação de dados com Format em Excel VBA

Excel 2010

Private Sub btncd_Change()

Me.txcd.Value = Format(Me.txcd, "0.00") '2 casas de formatação")

End Sub

Private Sub ToggleButton1_Click()

Me.txreal.Value = Format(Me.txreal, "R$ #,###.000") 'Formato real com 3 casas decimais'

End Sub

Private Sub btndata_Click()

Me.txdada.Value = Format(Me.txdada, "dd/mm/yyyy")

End Sub