MsgBox(uFormat("1330", "@@:@@", "@"))
MsgBox(uFormat("10122008", "@@.@@.@@@@", "@"))
 
 
    Private Function uFormat(ByVal s As String, ByVal f As String, ByVal d As _
      String)
 
        'Anzahl der Daten-Character checken
        If f.Length - f.Replace("@", "").Length - s.Length <> 0 Then
            MsgBox("Anzahl der Zeichen passen nicht zum Formatstring!")
            Return ""
        End If
 
        'Ergebnisstring
        Dim result As String = String.Empty
        'Position im "Datenstring"
        Dim p As Integer = 0
 
        'Formatstring durchlaufen
        For i = 0 To f.Length - 1
            'Wenn Datenausgabe an Position, dann Character anfügen
            If f.Substring(i, 1) = d Then
                result &= s.Substring(p, 1)
                'nexter Character
                p += 1
            Else
                'ansonsten angegebenes Trennzeichen anfügen
                result &= f.Substring(i, 1)
            End If
        Next
 
        'Rückgabe
        Return result
 
    End Function

Gru?

BernyH