codice:
        Dim s As Double() = {13.999999999, 12.3, 10, 12.346}
        Dim result As String = s(0).ToString("##0.00") & ", " & s(1).ToString("##0.00") & ", " & s(2).ToString("##0.00") & ", " & s(3).ToString("##0.00")
        MessageBox.Show(result, "Round", MessageBoxButtons.OK, MessageBoxIcon.Information)