Dim Maske As String = "0000000000"
'so erstelle ich eine neue Seriennummer ====================================
 
tbx_Seriennummer.Text = _
String.Concat(Maske, Format(CInt(tbx_MaxValue.Text + 1), "000000").ToString)
 
'===========================================================================
Ergbnis neu = _
in tbx_Seriennummer.Text 
steht dann das 0000000000100083 drin so soll es aussehen!

Private Function FindMaxDataTableValue(ByRef dt As DataTable) As Integer
        Dim currentValue As Integer, maxValue As Integer
        maxValue = 0
 
        For c As Integer = 0 To dt.Columns.Count - 1
            currentValue = dt.Compute("MAX(picname)", "")
            If currentValue > maxValue Then maxValue = currentValue
        Next
        Return maxValue
    End Function