Number Formats in VB

//Number Formats

Dim N As Double

Private Sub Command1_Click()
Me.Cls
N = Text1.Text
Print
Print Space$(5); "Format 0 = " & Format(N, "0")
Print Space$(5); "Format 0.0 = " & Format(N, "0.0")
Print Space$(5); "Format 0.00 = " & Format(N, "0.00")
Print Space$(5); "Format #,##0.00 = " & Format(N, "#,##0.00")
Print Space$(5); "Format 0% = " & Format(N, "0%")
Print Space$(5); "Format 0.00% = " & Format(N, "0.00%")
Print Space$(5); "Format $0.00 = " & Format(N, "$0.00")
End Sub

Private Sub Form_Load()
With Me
.ForeColor = vbBlue
.FontSize = 18
End With
End Sub