Visual Basic.NET - problema en el impuesto

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Tests()

    End Sub

    Private Sub Tests()

        Dim DT As New DataTable

        ' Pruebo uno y otro : siempre obtengo mismo resultado

        '   DT.Columns.Add("Valor")    ' sin tipo escrito

        DT.Columns.Add("Valor", System.Type.GetType("System.String"))    ' con el tipo escrito

        ' Si "123,45", tengo error. En mi sistemma, para el formato Currency, este debe ser el punto

        Dim UnaValor As String = "123.45"  ' Si "123,45", tengo error. En mi sistemma, para Currency, este debe ser el punto

        DT.Rows.Add(UnaValor)

        Dim CadenaAMostrar As String

        CadenaAMostrar = DT.Rows(DT.Rows.Count - 1).Item("Valor")

        Windows.Forms.MessageBox.Show(CadenaAMostrar)

        CadenaAMostrar = FormatCurrency(DT.Rows(DT.Rows.Count - 1).Item("Valor"))

        Windows.Forms.MessageBox.Show(CadenaAMostrar)

        CadenaAMostrar = String.Format("{0:C}", CType(DT.Rows(DT.Rows.Count - 1).Item("Valor"), Double))

        Windows.Forms.MessageBox.Show(CadenaAMostrar)

    End Sub

End Class