Public Function ReplaceAllCharsIfMoreThen(Source As String, Char As String, _
  MaxChars As Long) As String
'// Ersetzt mehrfaches <Char> in <Source>
 
  Dim i As Long
  Dim nCount As Long
 
  For i = 1 To Len(Source)
      If Mid$(Source, i, 1) = Char Then
            nCount = nCount + 1
 
            If nCount > MaxChars Then
                ' Zeichen aus String entfernen
                Source = Replace(Source, Char, "")
            End If
      End If
  Next i
 
  ReplaceAllCharsIfMoreThen = Source
End Function
 
Private Sub Command1_Click()
 
  Dim s As String, c As String
 
  c = "."
  s = "bla....bla...bla....bla....."
 
  MsgBox ReplaceAllCharsIfMoreThen(s, c, 2)
End Sub