Visual Basic --> Kommastellen

[Potassium]

so versuche es mal damit:

Option Explicit

Private Sub Form_Load()
Dim Kommastellen, Begin, Zahl

Zahl = 2.589734567867
'Zahl = 2454541.2
Begin = InStr(1, Zahl, ",")
If Begin > 0 Then
    Kommastellen = Mid(Zahl, Begin + 1, 2)
Else
    
End If



If Len(Kommastellen) = 0 Then
    Kommastellen = "00"
ElseIf Len(Kommastellen) = 1 Then
    Kommastellen = Kommastellen & 0
End If

Zahl = Mid(Zahl, 1, Begin - 1)
Zahl = Zahl & "," & Kommastellen
MsgBox Zahl
End Sub

ich hoffe das ist was du brauchst