Private Sub Form_Load()
Dim A As String
A = "1,2,3,4,5,6,7,8"
Me.Caption = XZeichenDelete(A, ",", 4)
End Sub
 
Function XZeichenDelete(InpStr As String, Trennz As String, Mult As Long) As _
  String
Dim I As Long, S As Long
S = 1
For I = 1 To Mult
    S = InStr(S, InpStr, Trennz) + 1
Next I
XZeichenDelete = Mid(InpStr, S)
End Function

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!