Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim dNum As Double
        dNum = 32.123456789
        MsgBox("Formated String " & String.Format("{0:n4}", dNum))
    End Sub
End Class