こちらのサイトが見やすい!
kosapi.com
Public Function ConvertNumberFormat(ByVal num As Long, ByVal formatNo As Long) As String
Select Case formatNo
Case 1
ConvertNumberFormat = format(num, "General Number")
' 10000 --> 10000
Case 2
ConvertNumberFormat = format(num, "Currency")
' 10000 --> \10,000
Case 3
ConvertNumberFormat = format(num, "Fixed")
' 1235.678 -- > 1235.68
Case 4
ConvertNumberFormat = format(num, "Standard")
' 1235.678 --> 1,235.68
Case 5
ConvertNumberFormat = format(num, "Percent")
' 0.123456 --> 12.35%
End Select
End Function