Dim ZahlenString As String
Dim ErgebnisString As String
Dim k As Integer
 
ZahlenString = "123456789012345678901234567890"
 
  For k = 0 To Len(ZahlenString) - 1
    If (k > 0) And (k Mod 4 = 0) Then
      ErgebnisString = ErgebnisString & "."
    End If
    ErgebnisString = ErgebnisString & Mid(ZahlenString, k + 1, 1)
  Next
 
  MsgBox ErgebnisString