Public Function Wert_Generierung(ByVal Wert As Single, ByVal Komma As _
      String) As String
 
        Dim vorkomma As String
        Dim nachkomma As String
        Dim test As Integer
        Dim druckstring1 As String
        Dim druckstring2 As String
 
        ' String auf Vor und Nachkommastellen aufteilen
        vorkomma = Wert.ToString
        test = vorkomma.ToString.IndexOf(",")
        If test = -1 Then
            If Wert.ToString.Length < (6 - Komma) Then
                vorkomma = Wert.ToString
            Else
                MessageBox.Show("Der angegebene Druck ist zu groß!", "Fehler", _
                  MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return "000000"
            End If
            nachkomma = "0"
        Else
            vorkomma = Wert.ToString.Substring(0, test)
            nachkomma = Wert.ToString.Substring(test + 1)
            If CInt(nachkomma).ToString.Length > Komma Then
                nachkomma = "0," + nachkomma
                nachkomma = System.Math.Round(CDbl(nachkomma), CInt( _
                  Komma)).ToString
                nachkomma = nachkomma.Remove(0, 2)
            End If
        End If
 
        ' Vorkommastellen bilden
        druckstring1 = vorkomma.ToString
        For i As Integer = 1 To (6 - Komma)
            If druckstring1.Length < (6 - Komma) Then
                druckstring1 = "0" + druckstring1
            End If
        Next
 
        ' Nachkommastellen bilden
        druckstring2 = nachkomma.ToString
        For i As Integer = 1 To Komma
            If druckstring2.Length < Komma Then
                druckstring2 = druckstring2 + "0"
            End If
        Next
 
        ' String zusammengefügt zurück geben
        Return druckstring1 + druckstring2
 
    End Function

Pdt