nicht direkt; du musst den String zerlegen und dann wieder zusammenbauen
Sub Click(Source As Button)
Dim mainString As String
mainString = "aabbccdd"
Dim subString As String
subString = Mid$(mainString, 1, 4)
substring = substring & "." & Mid$(mainString, 4, 1) & "."
' und so weiter
Msgbox substring
End Sub