Sub stringTeilen()
Dim S&, E&, I&, J&, str$, AV$()
str = "fgdtghsdf.45435sd.x3346xx.<<yy"
S = 1
For I = 1 To Len(str)
If Mid(str, I, 1) = "." Then
ReDim Preserve AV(J)
AV(J) = Mid(str, S, I - S)
MsgBox AV(J)
J = J + 1
S = I + 1
ElseIf I = Len(str) Then
ReDim Preserve AV(J)
AV(J) = Mid(str, S, I - S + 1)
MsgBox AV(J)
End If
Next
End Sub