Dim s1 As New CSuperString("1330")
Dim s2 As New CSuperString("10122008")
 
MsgBox(s1.StringFormat("@@:@@") & vbCrLf & s2.StringFormat("@@.@@.@@@@"))
 
 
 
Public Class CSuperString
 
    Private s As String = String.Empty
    Private d As String = "@"
 
 
    Public Sub New(ByVal ss As String)
        s = ss
    End Sub
 
    Public Property StringDelimiter() As String
        Get
            Return d
        End Get
        Set(ByVal value As String)
            d = value
        End Set
    End Property
 
    Public Property StringValue() As String
        Get
            Return s
        End Get
        Set(ByVal value As String)
            s = value
        End Set
    End Property
 
 
    Public Function StringFormat(ByVal f As String)
 
        If f.Length - f.Replace(d, "").Length - s.Length <> 0 Then
            MsgBox("Anzahl der Zeichen passen nicht zum Formatstring!")
            Return ""
        End If
 
        Dim result As String = String.Empty
        Dim p As Integer = 0
 
        For i = 0 To f.Length - 1
            If f.Substring(i, 1) = d Then
                result &= s.Substring(p, 1)
                p += 1
            Else
                result &= f.Substring(i, 1)
            End If
        Next
 
        Return result
 
    End Function
 
End Class

Gru?

BernyH