TextBox1.Text &= "€"

    Private Function ConvertNumberToStringWithEuroSign(ByVal betrag As Double) _
      As String
        If Double.IsNaN(betrag) Then
            Throw New ArgumentException("Not A Number")
        End If
        Return Format(betrag, "F2") & " €"
    End Function

   Dim val As Double = 123.54
        TextBox1.Text = val.ToString("C")

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist