Dim strButtonText As String
 
  strButtonText = "Dies ist aber ein langer Text"
 
  ' Prüfen, ob noch in Button passt
  With Command1
    While TextWidth(strButtonText) > .Width - 210
      strButtonText = Left(strButtonText, Len(strButtonText) - 1)
    Wend
 
    .Caption = strButtonText
  End With