Dim vData As Variant
vData = Split(sString, "&")

Dim i As Integer
Dim nPos As Integer
 
For i = 0 To UBound(vData)
  ' nach Gleichheitszeichen suchen
  nPos = InStr(vData(i), "=")
  If nPos > 0 Then
    Select Case Left$(vData(i), nPos - 1)
      Case "myNachname"
        lblNachname.Caption = Mid$(vData(i), nPos + 1)
      Case "myVorname"
        lblVorname.Caption = Mid$(vData(i), nPos + 1)
      ...
    End Select
  End If
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de