Global IdInfo(0) As IdInfoArray
 
Type IdInfoArray
    NickName    As String
    Location    As String
    MemberDate  As Date
    LastLogIn   As Date
    ForumPosts  As Long
End Type

Public Function SucheZwischenBereich(tempTextInhalt As String, tempSucheBegin _
  As Long, _
            tempLinkerString As String, tempRechterString As String) As String
On Error Resume Next
 
    Dim tempFirstPos As Long
    Dim tempLastPos As Long
    Dim tempLenLinkerString As Long
    Dim tempLCaseTextInhalt As String
 
    tempLCaseTextInhalt = LCase$(tempTextInhalt)
 
    tempLenLinkerString = Len(tempLinkerString)
 
    tempFirstPos = InStr(tempSucheBegin, tempLCaseTextInhalt, tempLinkerString)
    If tempFirstPos > 0 Then
        'MsgBox "StringAnfang gefunden"
        tempLastPos = InStr(tempFirstPos, tempLCaseTextInhalt, _
          tempRechterString)
        If tempLastPos > 0 Then
            SucheZwischenBereich = Mid$(tempTextInhalt, tempFirstPos + _
              tempLenLinkerString, tempLastPos - tempFirstPos - _
              tempLenLinkerString)
            tempSucheBegin = tempLastPos
        Else
            SucheZwischenBereich = ""
        End If
    Else
        SucheZwischenBereich = ""
    End If
 
End Function

Function WochenTagEntfernen(tempString As Variant) As Date
On Error Resume Next
 
    WochenTagEntfernen = CDate(Right$(tempString, Len(tempString) _
        - InStr(1, tempString, ",")))
 
End Function

*greetz*
Tim
.
http://www.DotNetWorld.de